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ANNIVERSARY 


We have survived our first year! 
BEEBUG magazine has now reached volume 
two, and to mark the passing of time we 
have brought together some extra items 
with this issue. 


INDEX 
Firstly the four centre pages of the 


magazine contain a referenced index for 


the ten issues of volume one. We hope 
that this will make it easier to find 
things, 


BINDER OFFER 
Secondly we are offering a binder 
for the magazine. This is A5 size, in 
dark blue with 'BEEBUG' printed in gold 
on the spine. I have been using a 
sample binder for some time now, and it 
really makes referencing back issues a 
great deal easier. Taken with the 
cumulative index it enables the whole 
volume to be used as a single reference 


book. See back page for ordering 
details. 


REFERENCE CARD 

Thirdly, this issue is accompanied 
by a BEEBUG reference card (unless the 
magazine was ordered as a back issue). 
This is packed with a wealth of data, 
which we hope will save hours of 
searching through the user guide. And 
in practice the Reference Card goes a 
little beyond the User Guide, giving 
Some of the latest FX calls. We HOPE 
that the Card is relatively free from 
errors - it has been carefully checked 
- but only time will tell. 


MAGAZINE CASSETTE 

Fourthly, each month we shall be 
putting the programs from the magazine 
on to cassette, These will be available 
at £3.00 + 50p p&p (inc VAT) to 
members. The obvious advantage of the 


cassettes is that they will save some 
time and anguish in getting programs 
running. There is also a further 
advantage: they allow us to provide 
extra material. For example, in the 
cassette for this issue, we have 
included a program produced by the 
Music Composer in this issue, which 
plays Beethoven's Bagatelle in b flat. 


APOLOGY 

We also have an apology to make. 
Because of space restrictions in this 
issue (partly caused by dropping the 
extra small print which we used 
experimentally in Feb and March), we 
have had to postpone the promised 40 
user key program, and part 3 of Using 
Files, until next issue. 

We must also apologise for calling 
this issue 'April/May' rather than 
"April". One or two computer shops now 
Stock BEEBUG, and we have been asked if 
the cover date can be advanced so that 
issues on their shelves do not appear 
to be out of date once they have been 
on display for a few days. Being unable 
to bring the publication date forward, 
we are changing the month on the cover. 
The actual date of publication and the. 
issue number will remain unchanged. The 
next issue (issue no. 2) will be called 
the June issue, and will come out 
towards the end of May. 


O.S. 1.2 ROM 

We have now supplied around 6000 
members with 0.5. 1.2, and we expect 
all outstanding orders to be cleared by 
15 April. Because of this we can now 
accept multiple orders from 
institutional members. There can be no 
quantity discount in such cases, and 
the price of £5.85 per unit stands. 
Again, you should allow 4 - 6 weeks for 
delivery. 
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o> Program by John Webb 


THE GAME 


Four-In-A-Row is a nice colourful implementation of the commercially available 
game "Connect Four". The object is to get four counters in a row, either 
horizontally, vertically or diagonally on a 6 x 7 playing board. It is a game where 
two players take alternate turns, deciding in which column to place a counter. You 


cannot choose what row to put it in, counters just pile up from the bottom. 


In this implementation you can play against the Beeb, or another person. Four In 
A Row is a game of strategy, and the program plays quite a fair game. Generally 
speaking it will win unless you can set a trap for it by gradually building up two 
interrelated rows of four. This implementation plays a better game than the only 
other computer version that I have seen, which ran on a UK1@1. 


OPERATING NOTES 
The game uses Mode 1, and therefore requires a 32k machine, but it will fit into 

a disc machine if you set PAGE to &1100 (ie. enter  PAGE-&1100 <return>) before 
loading (or entering from keyboard) - but remember not to press Break. Once you have 
it on disc it may be useful to have a short header program saved separately on disc 
which resets PAGE. For example: 

19 REM short header for 4INAROW 

20 PAGE-&11060 

30 CHAIN"4" 
Save this under the title "4INAROW", and save the main program under the title "4", 
Then to load just CHAIN "AINAROW" 


The colours used in the program are pretty, but the yellow is a little difficult 
to see against the surrounding white frame. To make it magenta, add: 
145 VDU19,2,5,0,0,0 
Alternatively, if watching in black & white, try deleting line 280, or better still 
adds 


p Me 2 18: 0,0, dm 


SØMODET: PROCtitles 

6Øøg0%=1 :win$=Ø:turn$=Ø:comp%=Ø 

70FORrow$-]TOO 

80FORco1$-]TO7 

9Øposition% (row%,col%)=Ø 

I ØØNEXT : NEXT 

11 ØMODE ] 

1 ZØPROCse tupgame 

1 3ØREPEAT 

1 48PROCturn 

15ØIF go%=Ø AND comp%=@ PROCcolour 
ae go$-0 AND comp%=] PROCcomputer : PROCc 
our 

178IF go%=1 PROCcolour 
188PRINTTAB (9,8) "Last go"'"col: ";column$ 
199SOUND&11,1,86,111sSscreen$=1 4347+48*colu 
mn%: REPEAT : screen%=screen%+192Ø: UNTIL?screen 
$»0 
: eo Pinner RESA EROE el da 
„ıh%= 


I ØREM** Four-in-a-Row by John Webb** 21 GUNTILwin$=990Rturn$=42 : PROCwin :GOTO6Ø 
20DIMposition$ (6,7) s PROCcircles 22 FREM dr Ae Fe Ae de Se Fe e Fe e de ed eee de dele 
3ØENVELOPE] å 6 " g ; g ; ø å g i ø ; g å 12] ; -1Ø 7 -5 : -2 : 1 2230REM? 9t fe defe de dede de de dee de de de dede de de dede dede dede 

20,129 24ØDEFPROCsetupgame 
4ØENVELOPE2,6,4,-8,-4,16,16,32,64,64,-64, 25ØREM This draws the board, and establish 


es who is playing 
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AW1 926 , 2853 DRAW] 029,895: DRAW285,895 
27ØMOVE3ØØ , 889 : MOVE390 , 220: PLOT85, 1985, 8890 
:PLOT85, 1985, 229: VDU20 
280VDU19,0,4,0,0,0 
290FORRz1TO6:FORCz1TO7 : PRINTTAB (7--3*C , 2--3* 
R) ;C$; : NEXT: NEXT 
3ØØVDUS : MOVE 355, 260 :GCOLØ, Ø: PRINT" ] 
å 5 6 7":VDU4 
31ØvDU23:82Ø2:Ø:Ø:Ø: 
32ØREPEAT: PROCclear : PRINTTAB (11,27) "Do you 
want to play": PRINTTAB(1Ø,29) "the computer? 
(Y or N) "sans$=GET$ :UNTILans$="Y"ORans$S="N" 
3301F ans$="N"THEN ENDPROC 
34ØREPEAT: PROCclear :comp%=] : PRINTTAB (12,27 
) "Do you want to go":PRINTTAB(13,29)"first?( 
Y or N) ":ans$=GETS$:UNTILans$="Y"0ORansS="N" 
35ØIF ans$="Y" go%=Ø 
36ØENDPROC 
370REM* * zc ede dede fede ete de ede de dede deed dede 


3890 REM? *c* es AR dede de dee de ede de de dede d defe dee de 

390DEFPROCcOlour 

4ØØREM This colours display at next availa 
ble position 

41Øcol%=column%:row%=Ø: REPEAT:row%=row%+1 : 
UNTILposition% (row%,column%)=Ø 

42@posi tions (row%,column%)=1 

43ØCOLOUR (1 3Ø-90%) : PRINTTAB (7+3*column$ , 23 
-3*row%) z; C$ :COLOUR1 28 

440ENDPROC 

459 REM * vt sc dese de de de de de e Ve de de de de de e dede de de de de de Å 


46 0REM?: * vc TETT de de de ve de Ve de dede de e ve de de de dee dede de 


47ØDEFPROCcircles:REM Draws one circle 

48ØvDU23,224,255,255,255,252,24Ø,224,224,1 
92:VDU23,227,192,128,128,128,128,128,128,192 
:VDU23,229,3,1,1,1,1,1,1,3:VDU23,226,255,255 
;255,63,31,15,7,3 

490VDU23,232,3,7,15,31,63,255,255,255:VDU2 
3,228,0,0,0,0,0,0,0,0:VDU23,225,255,255,0,0, 
9,0,0,0:VDU23,231,0,0,0,0,0,0,255,255 

500VDU23,230,192,224,224,240,252,255,255,2 
55 

510C1$9-CHR$2244*CHR$2254CHR$226: C2$2CHR$227 
+CHRS228+CHRS229 : C3$2CHR$2304-CHR$2 31 4CHR$232 
: COLOUR3 : COLOUR] 27 

520CS=C 1 $+CHRS$8+CHRS$8+CHRS$8+CHRS I 0+C2S-+CHR 
$8+CHR$8+CHR$8+CHRS 1 04-C3$ 


53ØENDPROC 
54 ØREN? 3 feed de de e e de de de le fe efe de dede de dede 


550REMY * Yee dede Tee de de de de Ve do de Ve de de de e defe de ede e 

560DEFPROCtitles:VDU23;8202;0;0;0; «REM Can 

cels curser 

570PRINTTAB(11,19) CHRS$131CHR$141"FOUR IN A 
ROW" 

580PRINTTAB(11,11)CHRS$131CHR$141"FOUR IN A 
ROW" 

590waitzINKEY (399) 

: 600CLS: PRINTTAB(2,5)CHR$130"Tne object is 
to get four of your own" :PRINTCHR$]3@"colour 
in a line in any direction." 

61 ØPRINT' TAB (2) CHR$13Ø"You can choose to 
play against the" :PRINTCHR$13Ø"computer or 
against another player. The": PRINTCHRS$13Ø"m 

achine always plays yellow." 

62ØPRINTTAB (6,19) CHR$132"Press space bar t 

o play." 
63ØREPEATUNTILGETS=" " 


2 3 


BEEBUG MAG 


260VDU] 9 7 3, Bs 9; :MOVE285 ,895: DRAW285 ; 205: DR. <= 


__en%+3849) >GORscreent>=22363 
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— BS ØREM? ART kkk dA de eder 
660REM7 * *e see eve de d e de de de Ve e de Ye de de de de de de de fe det 
670DEFPROCwin:PROCClear:SOUND&11,2,100,121 
68ØREM This responds to a win or draw 
6901F turn%=42 AND win%<>99 PRINTTAB(12,27 

) "Honourable draw!" :GOTO728 
7091F go%=Ø PRINTTAB (14,27) "Yellow wins!"E 

LSE PRINTTAB(16,27) "Red wins!" 
71Ø*FX15,1 
72ØPRINTTAB (5, 3Ø) "Press space bar to play 

again.":IF GET$S=" "THEN73ØELSECLS:END ` 
73ØENDPROC 


TA ØREM? X de de de de A Ae e fe fe dee fe de de de dee de dee dede dede 
750 REM dde de de de de de de de fe fe de de fe vede de dee de dee dee 
760DEFPROCClear : PRINTTAB (9,27) ; SPC(12Ø) 


779 ENDPROC 
TBØREM*t fete de de de de de de se de de de de fee dee ee eee 


790REM* s de ee de de dede de dede aa 
8ØØDEFPROCturn 
81ØREM This displays whose turn next, and 
accepts response 
820turn$-turn$-4] 
83ØIF comp$-1AND go0%=1|THEN91Ø 
849REPEAT: PROCclear : IF go%$=ØPRINTTAB (8,27) 
"Reds turn - "; 
85ØIF go$-lPRINTTAB(6,27)"Yellows turn - " 
86Ø*FX15,Ø 
87ØPRINT"which column?" :column%=VALGETS : UN 
TILcolumn$>@ANDcol umn$<8 
88ØIFposition% (6,column$) >ØTHENS4Ø 
89ØIF go$-1 go$-0 ELSE go%=] 
900 ENDPROC 
91 @PROCclear : PRINTTAB (16, 27) "Computing" 
920go$-0 
93ØENDPROC 
04 ØREM* * å sede dede de de de Ve Ve ve Ve ee de de fede de dede e de dede 
OSØREM? * *t deese de ede ve e de Ye Ve ve de de de de de Ve de de de de dee 
96ØDEF PROCcomputer 
970REMThis must calculate a value for colu 
mng 
980flag$-0:IF turn%<4 column%=4:TIME=Ø:REP 
EATUNTILTIME>] 99: ENDPROC 
998dontgo] %=Ø:dontgo2%=Ø:dontgo3%=Ø:dontgo 
43=9 
1ØØØswap%=Ø : column] %=Ø:column2%=Ø 
1Ø1 ØFORCO1%=1T07 
1028IFpositiong (6,col%) >OTHEN] 100 
1Ø3ØIF col$-dontgol$ OR col%=dontgo2% OR co 
1%=dontgo3% OR col%=dontgo4% THEN119@ 
1Ø4Øscreen%=14347+48*c01% : REPEAT: screen%=sc 
reen%$+192Ø: UNTIL? (screen%+192Ø) >ØORscreen$>2 
62Ø3 
1Ø5ØIFscreen%>262Ø3screen%=25867+48*co01% 
186@PROCweighandcheck 
1970IFweight$»swap$ THENColumn$-col$ 
1Ø8ØIFweight%>Swap&THENSwap%=weight% 
1Ø9ØIFChecks=3 col%=7 
1 I ØØNEXT 
1119IF columnl$»0THENCOlumn$-zcolumn]$:ENDPR 
oc 
112ØIF column2%>9THENcol umn$=col umn2$: ENDPROC 
113øflag%=flag%+1 
1148IF turn%<9 OR positions (5,column%)=1 TH 
ENENDPROC 
1158screen?=] 4347+48*column$ :col$=col umn% 
1160REPEAT: screen%=screen%+192Ø: UNTIL? (scre 
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11 7ØPROCwe ighandcheck 

118ØIF flag%>4 THENIF dontgol%>Ø AND dontgo 
18<>dontgo3% AND dontgol$«»dontgo4$ THENcolu 
mn$=dontgol % : ENDPROC 

119ØIF flag$>4 AND dontgo2%>Ø THENcolumn£-d 
ontgo2%: ENDPROC 

12ØØIF £flag%>4THENcol umng=dontgo 3%: ENDPROC 

121ØIF dontgol$-column$ OR dontgo2$-column$ 
OR dontgo3%=column% OR dontgo4%=column% THE 
N1999 


1220ENDPROC 
1 2 3ØREM?t dr de dd dd de dede de de de se de de de ee dee de dede dede 


1 2AOREM sedes dede de de de e de de de de de de de dede de de de de dede dee 
1259DEFPROCweighandcheck 

1260REM This gives a weighting to each poss 
ible move selected in PROCcomputer, and also 
checks for a winning line after each turn. 
1270weight$-9 

1280FORA$-0TO3 
1290B$-A$-0AND]ORA$»0AND38-AS$ 


KEY BOOT 


-13ØØFORC4=ØT03 :check2=9 


131 ØFORD%=ØT03 

1320peek$-? (Screen%+B3*48* (D$-C$£) ) 

133@check%=peek$=249ANDcheck$+1ORpeek%=1 SAN 
Dcheck%-10Rpeek%=GANDcheck% 

134QNEXT 

135øIFmissweigh%=Ø THEN1419 

136@weight%=weight%— (75+RND (39) ) * (Check$2-2 
)- (15+RND (19) ) * (check$=—1)—(15+RND(19) ) * (che 
ck$=])- (75+RND (30) ) * (check$=2) 

137ØIF check%=3 THENcolumn]%=col%:IF dontgo 
1%=@ THENdontgol%=col% 

138ØIF check%=3 THENdontgo2%=col% 

139ØIF check$--3 THENcolumn2%=col%:IF dontg 
03$-0 THENdontgo3$-col$ 

14ØØIF check$--3 THENdontgo4$-col$ 

141ØIF check$-4 OR check%=-4 win%=99 

1 42ØNEXT: NEXT 

1 433ØENDPROC 


Richard Bean suggests an economic use for the !BOOT mechanism: There are only 31 


files available for use on the BBC DFS, so using !BOOT to merely chain another 


is expensive in catalogue space. 
your soft keys, make that program 
program, then 


Provided that you program KEY1Ø 


Program" error if you press Key 1Ø. 
p.19 for further details on !BOOT. 


file 


If, like me, the first thing you do is to set up 
!BOOT. Even better, 
*SAVE BØØ BFF as !BOOT. You can then transparently load your keys at 
any time by pressing BREAK-SHIFT (set the disc to 
(BREAK) 
(Though if you load the keys into an otherwise "empty" machine you will get a 
Just type NEW to clear). See BEEBUG vol.l no.9 


run your Basic key-set 


*OPT4,] - the *LOAD option). 
with OLDIM, this causes no problems. 
' Bad 
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TAPE RECO! 


UDERS 


FOR THE 


by Adrian Calcraft 


We have received a considerable amount of mail on the subject of cassette 


recorders for use with the BBC Micro. To 
which tape recorder is most suitable for 
four machines. 


help members make their own decisions about 
their own circumstances, we have looked at 


MACHINES REVIEWED 


BOOTS 
DIXONS 


W.H. SMITHS 
FERGUSON 


When deciding which machines to 
look at, we attempted to choose those 
with sufficient distributors to 
enable easy purchase for members 
throughout the country. These 
machines were all suggested as 
suitable for use with the BBC Micro. 


All the tape recorders are of a 
similar shape and overall design, 
being flat and oblong with six 
control buttons at the front. The 
average size is about 19 inches long, 
6 inches wide and 2 inches high. They 


all have a flip up lid on top, into 
which the cassette is inserted. 
Other common factors include 


automatic stop/turn off when reaching 
the end of a cassette during playback 


or record, but not during fast 
forward or rewind. The machines can 
1)__BOOTS_CR32 
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CR325 
PRINZ TR15 
CCR890 
3197 


PRICE £23.95 
PRICE £17.99 
PRICE £29.95 
PRICE £28.50 


obviously be used in the normal way 
without the computer, and as such 
include a built-in microphone and 
volume control. 


All tests on the tape recorders 


were made using the standard 
‘Welcome’ cassette, supplied by the 
BBC. Most cassette recorders are 


capable of recording and playback at 
two different levels, through 
different sockets and leads. The DIN 
input/output socket is just over 1 cm 
in diameter and has usually three or 
five pins. The jack sockets are 
3.5 mn in size and will be in a pair 
on the recorder, one for input, one 
for output. These two are 
accompanied, on the machines reviewed 
here, by a third and smaller (2.5 mm) 
socket. This provides motor control 
from the computer. 


0e0000000000 
DOO DIR IOI) 


machine is very good. It has a tape 
counter which is easily read, and 
Sliding volume and tone controls, all 
easily accessible on the top. The 
controls incorporate a single button 


e 
eo € € 9 9009909 € 90909609999 


for stop/eject and also include a 
pause button, which can be very 
useful when using it with the 
computer. 


Both DIN and 3.5 mm jack sockets 
are available for record/playback, 
these are located at the front of the 
machine, below the control buttons. 
Positioned here they seemed a little 
in the way, most machines having them 
to the side. 

PERFORMANCE: The machine recorded and 


played back without problem, through 
both DIN and jack sockets. 
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This machine is slightly slimmer 
than the Boots but gives a less 
pleasing, plastic appearance. (It is 
important to remember that this 
machine is considerably cheaper than 
all the others.) The TR15 has no tape 
counter, an omission which could 
prove inconvenient on many occasions. 
There is no tone control and the 
volume control is located on the left 
side, along with the input/output 


W.H. SMITHS CCR8ØØ 


This recorder is sold by Smiths to 
accompany, dare I say it, their range 
of Sinclair computers. This tape 
recorder is very slim and has an 
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tee 


OO 
DOO 


Sockets. In Such a position it is 
hard to tell which way increases and 
which way decreases the volume. Only 
3.5 mm input/output sockets are 
provided, not a DIN. 


PERFORMANCE: The recorder worked well 
for playback of the "Welcome" 
casstte, but proved to be unreliable 
for saving programs. The problem 
would appear to be associated with 
the auto-record level. 


Unfortunately while using our 
demonstration model, the "record 
protection" feature malfunctioned. 
This is a small lever which only 
allows recordings to be made on 
cassettes which have the rear tabs in 
place. This lever jammed on the  TRI5 
resulting in accidental 
over-recording of the Welcome 
cassette with test data. 


PRINZ  TR30: As a postscript to this 


vn 2 seere mad [LJ 
review Dixons have informed us that. 


they will shortly be selling a new 
recorder, the TR3Ø. It is understood 
that this machine, which will sell 
for £21.99 will be more compatible 
with BBC micro. 


impressive appearance. A tape counter 
is provided and is easily read, being 


located on the top of the machine. 


The volume control is located on 
the left side of the machine, and is 
not accompanied by any tone controls. 
The  CCR800 features a 'computer mode" 
switch, which is recommended for use 
when saving from the computer. This 
fixes the automatic recording level 
control to an 'optimum' level. 


This machine also offers another 
very useful and unusual feature; the 
ability to  'cue' and 'review'. This 
means that if the rewind button is 
pressed while the play button is 
locked, the tape will quickly rewind, 
without resetting the play button, 
ie. as soon as the rewind button is 
released, play immediately continues 
again. The same applies to the 
fast-forward control. This really is 
very handy and allows very quick 
location of, say, the start of a 
certain program. Unfortunately the 
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machine does not also offer 
button. 


a pause 


Both DIN and 3.5 mm jack sockets 
are provided, being located on the 
left side of the machine. | 


PERFORMANCE: When using the DIN 
socket, the machine recorded and 
replayed very well with no problems 
at all. Using the jack socket for 
recording was slightly less reliable. 


*070*0"0"0"0"8"0"0"6"0"0"0"5"0"0"0"a"0"0"0aa anta "a a aa a a a Va a a ATQ ATL uS e mo. "e m 0 w © Hw vL" m n 
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4) FERGUSON 3TØ7 


This 
recommended and sold by Acorn to 


is the machine which is 
accompany the BBC micro. The 
appearance of this machine is good. 
It is slightly larger than the others 
reviewed, and so it is suprising that 
the tape counter, located on the top, 
is so small as to be hard to read. 
The controls have a very positive 
feel, and include a pause control but 
not the cue/review feature of the 
Smiths recorder. Volume and tone 
controls are of the sliding type, 
being located on the front face of 
the machine, where their settings are 
easily read or adjusted. 


jOOOOOOOOOO DE LEE ne NS eh he he he aa ee vnue 
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CONCLUSION 

The Boots recorder offers good 
reliability at a reasonable price. 
The Smiths and Ferguson recorders are 
both somewhat more expensive, and for 
the extra money you get a more solid 
and better finished machine, and in 


TIME DELAYS 


for their respective prices. 


The standard DIN and 3.5 mm jacks 
are located on the left side. 


PERFORMANCE: The recorder worked well 
and without fault. Loading and saving 
of cassettes through both DIN and 
jack sockets was without problem. 
However it should be noted that we 
have received considerable mail from 
3TØ7 owners who have had recording 
troubles. In past magazines we have 
published a number of fixes for this 
condition (eg. see BEEBUG vol.] no.4 
p.29 and BEEBUG vol.l no.9 p.26). 


AVAILABILITY: It is pertinent to 
mention with this article that we 
have received letters from unhappy 
members who were still waiting for 
delivery of their cassette recorders, 
ordered through Vector, after very 
lengthy periods of time. Vector were 
waiting for delivery themselves and 
were apparently advising customers 


that it might be in their best 
interest, to cancel their order and 
request a refund. Vector are no 


longer supplying it as they are now 
selling a Data Cassette Recorder. 
This is a machine which is designed 
specifically for use with computers 
and consequently cannot be put to any 
other use. Unfortunately Vector were 
out of stock of this item when we 
were collecting machines for review, 


the case of the Smiths', a very 
useful cue-review facility. In view 
of problems which members have had 
with the Ferguson, we rate the Boots 
and the W.H. Smiths as the best buys 


Seeing the two delay PROCs in ' BEEBMAZE' reminded Peter Mabey that a useful tip 
for setting a delay without disturbing the times is to use the following: 


1900 DEF PROCdelay (secs) 
1810 LOCAL time 
1020 time-TIME 
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1030 REPEAT UNTIL TIME »-time-l*secs 
1040 ENDPROC 


"o" e" o" o"e"eVe" o" e" e" a" e" a" o a a a a a a Qe "vw 
35055 6 6 eo o e" a a o a o o o a a a o a o o o a INN o o" a e e o o e e e o o o ete Tu tut 


tet mmm he mm nm n n m n a e a e a ae 0,9, 9,0, 6 9 €, 0, 0 0 0. 9 0 » OO GO. 
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by J.C. Fenton 
& Colin Opie 


Compose a tune in one, 


two or three part harmony with J C Fenton's COMPOSER. 


Single notes or chords may be entered, played back, transposed, and saved to tape 


with this extremely useful utility. 
p dolce 


In the Feb '83 issue of BEEBUG 
z— (no.9 p.26) J.C Fenton supplied a 
4 single line program which turned the 
———7 QWERTY keyboard into a piano style 


keyboard, enabling you to play simple wf 


tunes. Well from, little things do 
bigger things grow and this month we 
give a very useful 
| originating from the same author, 


away on tape or disc. 
provided include: 
Score editing for single notes or 


Volume and Tempo adjustment. 

Transposition in step of a 

semi-tone. 

d) Play facility on single notes, 
chords or the whole tune. 

e) BBC Basic SOUND listing of tune, = 
(with the option of *SPOOLing). 

f) Saving and loading of tune. 


USING THE. COMPOSER 2 

Although it's not as simple as the 
single line program mentioned earlier 
: it is a very easy editor to use. The 
program is more-or-less 
self-documenting, and constantly 
displays a list of  single-key 
commands alongside a 'stave' used for 
editing purposes. 

Once you have used the editor for 
a little while the commands become 
second-nature and considerable speed 
can be built up in actually entering 
a tune. For starting off however it 
might be useful to look at a 
description 


the program, and use the commands as 
specified to enter and play a simple 
string of notes. The crucial thing to 
remember is that a note is recorded 
on the system by entering a number 
between '1' and 9 specifying DEA 
duration. = = 


” ; 
B ° E oe 


utility, s 


"which enables musical scores to be 5213 
entered or composed and then stored p” 


Facilities za 


| NOTES ws -1 
chords (up to three voices) „JH ——I 


| RESTS 


= will be required. Each voice has to 


x chord, 


———. can for example adopt the 


| MINUET IN G 
| BEETHOVEN 


for each command, as pH 
given in the table below. Try running % 
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AN EDITING SESSION 

To show how flexible this editor ,€ 
is we will describe how you might ÅT 
enter the few bars of Beethoven's 777 
'Minuet in G', shown here. Before > 
starting you need to decide on the 
duration for each type of note, "^ . — 
bearing in mind the values 1-9 can be ^ 
used to record a note. In our Rn 
we could use: 5 


ør 


EM 


PMN RUNER ER 
À 
VD. 


Three voices exist so three channels 


though the order can change 
for any sequence of notes which start | 
and finish together. This 1S | 
extremely useful as it means that we 
order 
shown, and hence generate the proper 
sound in the third bar: 4 

= d * 

Led. 5 Eu 


Edited by 
Colin Opie 


Numbers are 'channel' numbers 


To enter the score first of all 
set the mode to 'sharps' by typing 
the command 'M' followed by '1' (this & 
is necessary because there are sharps 
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in the score). Now start entering the 


notes/chords. Obtain a 'B' by using 
the ‘note up/down' commands ('»' and 
'<') and then record the note by 
using the value '3'. Issue the chord 
command 'W' and then move to the 
appropriate  'G' note. Record this 
with the value '3' also. Now we need 
a crotchet-rest so again issue the 
chord command 'W', followed by the 
interval command 'I', followed by the 
value '4', 


Repeat a similar process for the 
first two bars but remember the 


change in channel order when you get 
to bar 3. You can enter the 'P' 
(play) command at any time during 


editing in order to hear what you 
have done up to that point. The tempo 
may need adjusting if the tune 
doesn't get played at the right 
speed. 


HINTS ON USE 
The following points may also be 
of use: | 
i) A tune can only be loaded from 
tape or disc when the program is 
first entered after typing RUN. 
You will see from the listing 


that the filename for the 
'music-data' file is always 
"TUNE', and the filename for the 
'SPOOLed' SOUND statements 


listing is always 'SPTUNE'. 
On a disc system you must rename 
these files before saving a 
second version. Owing to the way 
in which the Disc Filing System 
extends files it is always best 
to use a separate disc with the 
file 'TUNE' only on it for the 
duration of an editing session. 
If this is adhered to, the tune 
can be saved as many times as 
desired without an  "'extend' 
error occuring. Alternatively 
the COMPOSE program could be 
changed so as to allow a 
filename to be specified by 
yourself. | 

ii) For the single key commands to 
be recognised the keyboard 
should be in CAPS LOCK mode. It 
is only necessary to press the 
key displaying the appropriate 
character of a command, so you 
Should never use SHIFT even if 
the position of the character on 
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the key-top would normally imply 


iii) 


iv) 


v) 


vi) 


When editing a tune in more than 
one ‘voice’ it is essential to 
record all 'rests' (ie. gaps in 
the music) that exist in each of 
the voices, by using the ‘I! 
(interval) command. If this is 
not done the individual notes 
making up a chord (ie. a set of 
voices) will not be sounded 
together. 

At times you may find that the 
note indicator goes to the top 
of the screen and no note is 
displayed. This simply means 
that either no note has been 
allocated to the location or the 
location holds a 'rest' value. 
It will occur therefore if you 
go forward 'F' past the end of 
the tune entered so far. | 
Once a tune has been entered the 
editing facilities supplied can 
only cope with changing notes or 
chords which are wrong. It is 
not possible to go back a few 
bars and then enter an extra 


note. It is best to check 
frequently that what has been 
entered is correct, or 
alternatively you could at 


desired places skip over a 
number of storage locations by 
using the 'F' (forward) command, 
hence leaving a space. 

The location counter in the top 
left-hand corner is a "note! 
counter only. Chords will take 
up more than one location and 
going backwards and forwards 
('B' and 'F') in the music score 
will cause the counter to change 
by more than one unit in such 
cases, | 


PROGRAM NOTES 


1) 


2) 


3) 
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The " " character in lines 160 to 
198 is the underscore character 
found on the same key as the 


'pound' sign (next to the cursor 
control keys on the Beeb 
keyboard); it is not a 'minus' 
sign. 


Do not remove spaces from the 
listing, especially on lines which 
contain the word 'IF', 

The program is currently set to 
allow up to around 250 notes to be 
Stored (given by variable SZ% in 
line 6%). This enables the program 
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to run in a model 'A' Beeb. The 
value of SZ% can be increased by 
changing the value in line 6Ø to 
suit the memory limits of your 
machine. Clearly a model 'B' 
computer could store many more 
than 250 notes. | 


CREATING Basic MUSIC PROGRAMS 

When a listing of the 
corresponding SOUND statements is 
requested (by using the 'L' command), 
you will be given the option to SPOOL 
the output. If you accept the option 
(by typing 'Y') then a *SPOOL file, 
with the name 'SPTUNE', will be 
created on disc or cassette. This 
file can later be loaded into Basic 
for use on its own (ie. without the 
editor) by typing: 
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(if the use of SPOOLed files and 
*EXEC is new to you then see  BEEBUG 
vol.] no.9 p.20, BEEBUG vol.l] no.1Ø 
p.27, and the User Guide p.417). 

To play the tune simply type 
'RUN', as you would for any Basic 
program. You can edit the program as 
you wish, eg. by renumbering and then 
entering a header, or by appending 
your latest space-invader program. On 
this month's cassette tape of all the 
programs (see elsewhere in this 
issue) there is a sample Basic music 
program called 'BEEBAG', created by 


this music editor, which plays an 


edited (three voice ) version. of 
Beethoven's "Bagatelle in B-flat, 
Op119,.no.11'., 
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10 REM MUSIC COMPOSER 
20 REM by J C Fenton and BEEBUG 
30 REM 
40 MODE7:*FX4,1 
50 VDU23;11,0;0;0; 0: ONERRORGOTO58@ 
60 52%=25Ø 
70 C$-0:R$-0:D$-0:A2$-0:W$-0:T$-21:S$ 
-3:V$--10:E$-5 M 
80 DIMP2 (41,4) ,N$(SZ$,4) ,N$ (41,2) 
90 FORX=1T04:FORY=1T041 : READPS (Y, X) 
:NEXTY,X 
1090 FORX=1T02:FORY=1T041 : READNS (Y, X) 
sNEXTY,X 
118 VDU30:N$ (0, 1) z"n" :NS$ (0, 2) 2"n" 
120 PRINTTAB(1,1);"Would you like to 
load a tune (Y/N)"; 
130 X-GET:IFINSTR("Yy" ,CHRS (X) ) >ØCLS 
: PROCLOAD 
148 CLS:L3=N% (C%,4) 
150 PROCWRITE (8,14,"Music") : PROCVWR 
ITE (2,14,"Composer") 
160 PRINTTAB (2,1) :CHR$129;C%;CHRS$1 35 
;TAB(12,1);"  " | 
178 FORY=3TO11STEP2:PRINTTAB(1@,Y) ;" 
"NEXT 
189 PRINTTAB(12,13);" _":PROCNOTE(L %) 
198 FORY=15T023STEP2:PRINTTAB(1Ø,Y) ; 
e "+ «NEXT 
209 PRINTTAB(20,6);"1-9 : Record";TA 
_B(25,7) ; CHR$130; "Note length"; TAB(22,8 
);"W : Chord";CHR$130;"C-canc"; TAB(22, 
.9);"P : Play";TAB(22,1Ø):"B : Back one 
"+TAB(22,11):"F : Forward one"; TAB(22, 
12);"V : Volume";TAB(22,13);"T : Tempo" 
210 PRINTTAB(22,14);"M : Mode";CHR$S] 
30;"#b-";TAB(22,15);"I : Interval"; TAB 
(2Ø,16) :"+Ø- : Transpose"; TAB(22,17);" 
D : Delete";TAB(22,18);"S : Save tune" 


; TAB (22,19) ;"L 
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220 PRINTTAB(22,21):"< : Down"; TAB(2 
2,22);"> : Up";TAB(21,23);CHR$131;"Spa 
ce-bar : Sound"; 

230 *FX15,1 

240 I$-H$:H$-INSTR("123456789., WBFP 
VTMSEILD; 0C" ,GETS) : IFH3=ØTHEN23Ø 
250 IFH$«10 PROCREC:R%=Ø:PRINTTAB(1, 
2);" "s::GOTO230 l 

260 ONH%-9 GOTO270,300,330,340,350,3 
80,420,440,450,460,480,580,490,520,530 
,470,470,470,570 

270 PROCDEL:L$-L$-]1:1F(L$«1) L$£-] 

280 IFS$=3THENIFP%(L%,3)=1L%=L%-1:IF 
(L$«1) L2=] 

290 GOTO320 

300 PROCDEL:L%$=L%+1:IF(L%>41) L%=41 

31Ø IFS$=3THENIFP%(L%,3)=1L%=L%+1:IF 
(L3>41) L%=41 

320 PROCNOTE (L%) :GOTO230 

330 PROCSOUND:GOTO230 

340 PROCCHORD:GOTO230 

350 REPEATC$-C$£-]:IFC$«1C2-0 

360 UNTILN% (C%, 1) MOD&1ØØ<2 

370 GOTO4ØØ 

380 REPEATC$=C%+1:IFC%>5Z%-3 THEN C$ 
=52%-3 

398 UNTILN% (C%,1) MOD&1ØØ<2 

4ØØ PRINTTAB(@,1) ;CHR$129;C%;CHR$135 
$^ “3s L=N%(C%,4) : PROCDEL: PROCNOTE (L%) 
: IFN% (C3, 1) >2PROCNOTE (NS (C$+1,4) ) : LFN% 
(C%, 1) =&281 PROCNOTE (N2 (C$+2, 4) ) 

410 R%=Ø:D%=Ø:G0T023Ø 

420 *FX15,Ø 

430 FORX%=ØTOC%: PROCPLAY (X%) : NEXT :GO 
TO23Ø 
449 PROCVOL:GOTO230 
45Ø PROCSPEED:GOTO230 
460 PROCMODE :GOT023Ø 
470 PROCTRANS:GOTO230 
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480 PROCSAVE:GOT042Ø 
490 K%=L%:L%=Ø:PROCDEL:NW%=V%:V%=Ø 
EN H$-GET-48 : IFH%< ] ORH%>9L%=K% : GOTO 
3Ø 
510 PROCREC :V%=W%: L%=K% :GOTO23Ø 
520 PROCLIST:GOTO15Ø 
53Ø X%=C% 
540 Y%=N%(X%,1) : FORZS=1TO4:N%(X%,Z%) 
=Ø:NEXT | 
550 IFN%(X%+1,1)=Y%+1X%=X%+1 :GOTO540 
560 PROCDEL: D%=1 :GOTO239 
570 D%=1:R%=Ø:PRINTTAB (1,2) ;" 
T0238 | 
580 VDU23;11,255;0;0;0:CLS:*FX4,0 
590 IFERR<>17AND ERR<>ØTHEN REPORT:P 
RINT ERL 
600 END 
610 DEFPROCNOTE (Y$) 
620 PRINTTAB (6,P% (Y$ , T$) ) ;CHR$134;N$ 
(Y$, T$) ; CHR$135; TAB(13, P? (Y$, T$) ) ; "O"; 
630 ENDPROC 
640 DEFPROCREC 
659 IFR$-0D£-] 
660 Q%=Ø:PRINTTAB(Ø,1) ; CHR$129;C$;CH 
R$135;" "s 
670 PROCCHAN:N%(C%,2)=P%(L%, 4) :N% (C$ 
r 3) =H%:N% (C%,4) =L% 
680 X$-N$(C$,1):N$(C$,1)21:PROCPLAY( 
C$) :N% (C$,1) =X% 
690 R%=Ø:PROCDEL: PROCNOTE (L$) 
700 IFD%=3D%=1:0%=] 
710 C$=C%+1:IFC%=57%-2 THEN PRINTTAB 
(8,0) ;CHRS1 36; CHR$ 129; "FULL" ; sC3=SZ%-3 
720 ENDPROC d 
730 DEFPROCSOUND 
740 *FX15,0 
750 SOUND] ,V%, P% (L%, 4) +A%,6 
760 IFD%>1SOUND2,V%,N%(C%-1,2) +A%,6 
770 IFD$-3SOUND3,V$,N$(C$-2,2)-A$,9 
780 IFD%>1ENDPROC 
798 IFN%(C%,1)>1ØØSOUND2,V%,N%(C%+1, 
2) *A$,6 
800 IFN%(C%,1)>5ØØSOUND3,V%,N% (C3+2, 
2) +A%,6 
81Ø ENDPROC 
820 DEFPROCPLAY (U$) 
830 Z9-V$:l1FN$(U$,2)-20 Z%=ø 
840 SOUNDNS$ (U$,1) ,Z$,N$ (US, art N? ( 
US, 3) *E% 
858 ENDPROC 
860 DEFPROCCHORD 
870 IFI%<>H%D%=D%+1 
880 IFQS-lIPRINTTAB(25,1);"Chord full 
A" e sFORX=1TO1599:NEXT: PRINTTAB (25,1) ;S 
PC11;:R$-0: ENDPROC 
890 R%=1:PRINTTAB (1 , 2) ; "Ch" ; :PROCDEL 
: PROCNOTE (L%) : ENDPROC 
900 DEFPROCVOL 
918 PRINTTAB(20,1);"Enter Volume (1- 
9) B 


"e GO 
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920 V%=GET-48 : IFV3<1 ORV>9THENS 2G 
930 V%=-(V%+6) : PRINTTAB (20,1) ;SPC18; 
940 ENDPROC 

950 DEFPROCSPEED 

960 PRINTTAB(20,1);"Enter Speed (1-9 


2”; 


970 E$-GET-48:IFE$«10RV2$»59THEN979ELS 
EE$-10-—E$ 

980 PRINTTAB (20,1) ; SPC18; 

998 ENDPROC 

1000 DEFPROCMODE 

1918 PRINTTAB(20,1);"Enter Mode :";TA 
B(21,2):"1 = Sharps";TAB(21,3);"2 = Fl 
ats" ;TAB(21,4);"3 = Neither"; 

1020 S%=GET-48:IFS%<1ORS%>3THEN] 020 

1030 T$-S$:1FT$-3T$-1 

1040 FORX$-1TO4:PRINTTAB(20,X$) ; SPC18 
2 «NEXT 

1Ø5Ø ENDPROC 

1060 DEFPROCDEL 

1978 FORY%=ØT023: PRINTTAB (6, Y%) ;CHRS] 
35;" "+TAB(13,Y%) ;" "S:NEXT 

1080 IFR$-OENDPROC 

1090 Y$-C$:REPEATY$-Y$-]:IFY$«0Y$-0 

1100 X%=N% (Y%,4) : PROCNOTE (X$) :UNTIL (N 


$ (Y$,1) MOD&1ØØ<2) OR (Y$=Ø) 


1118 ENDPROC 
1120 DEFPROCCHAN 


1130 IFD$-IN$(C£,1)21:ENDPROC 

1148 IFD%=2N%(C%,1)=&1Ø2:N%(C%-1,1)=& 
1801: ENDPROC 

1158 IFD$-3N$(C$,1)-2&203:N$(C$-1,1)-2& 
202:N$ (C$-2,1) -&201 : ENDPROC 

1160 DEFPROCSAVE 

1178 VDU31,18,2:S=OPENOUT ("TUNE") 

1188 PRINT#S,C%,5%,V%,E% 

1198 FORX=ØTOC%:FORY=1T04: PRINT#S , N% ( 
X,Y) :NEXTY,X 

1208 CLOSE#S: PRINTTAB (18,2) ; SPC21; 

1218 ENDPROC 

1220 DEFPROCLOAD 

1230 PRINTTAB (22,1) ;"Loading";: 
IN("TUNE") 

1240 INPUT4S,C$,S2,V$,E$ 

1250 FORX=ØTOC%:FORY=1T04: INPUT#S , NZ ( 
X,Y) :NEXTY,X 
: 1268 CLOSE#S 

1270 T$-S$:1FT$-3T$9-] 

1280 ENDPROC 

1290 DEFPROCLIST 

1300 VDU14:CLS 

1318 PRINTTAB (29,1) ;"SPOOL (Y/N)? "s: 
S$=GET : PRINT 

1320 IFS%<>ASC("Y") AND S%<>ASC ("y") TH 
ENS%=ØELSES%=1 : *SPOOL SPTUNE 

1330 FORX%=ØTOC%:PRINT;X%:" SOUND ";N 
$(X$,1) ;","; 

1348 IF NS (X$,2) =Ø THEN PRINT "Ø": EL 
SE PRINT ;V$; 

1358 PRINT",";N$(X$,2)-A$;" ,";N$ (X$,3 


=OPEN 
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1360 IFS%=1THEN *SPOOL 

137ø PRINT'"Press any key to continue 
":%*FX]5,0 | 

1388 X-GET:VDU15:CLS 

1398 ENDPROC 

1400 DEFPROCTRANS 

1418 IFH%=25A%=A3+4 

1420 IFH$-26A$-A$-4 

1430 IFH$-27A$-0 

1449 IFA$-OPRINTTAB (9,3) ;" de 
1450 IFAS<>QPRINTTAB (Ø, 3) ;" Tr" ;A2/4;" 


1460 ENDPROC 

1470 DEFPROCVWRITE (X,Y,W$) 

1480 LOCALM:FORM-]TOLEN (WS) 

1490 PRINTTAB(X,Y-M-1) ; CHRS 1 33 ; MIDS (W 
$,M,1) ;CHR$135; 

1500 NEXTM:ENDPROC 

1518 DATA0,1,1,2,2,3,3,4,5,5,6,6,7,8, 
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716,17,17,18,19,19,20,20,21,22,22,23,2 
3 


1520 DATA0,0,1,1,2,2,3,4,4,5,5,6,7, 7, 
8,8,9,9,10,11,11,12,12,13,14,14,15,15, 
16,16,17,18,18,19,19,20,21,21,22,22,23 

1530 DATA20,1,0,1,0,1,0,0,1,0,1,0,0,1, 
0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,1,0,0,1, 
90,1,0,0,1,0,1,0 

1548 DATA193,189,185,181,177,173,169, 
165,161,157,153,149,145,141,137,133,12 
9,125,121,117,113,1Ø9,1Ø5,1Ø1.,97,93,89 
,85,81,77,73,69,65,61,57,53,49,45,41,3 
7,33 

1558 DATAB,A#,A,G#,G,F#,F,E n FEE 
7B, At ,A,G#,G,F#,F,E,D#,D,C 
#,G,F#,F,E,D# rD,C#,C,B,At# 

1560 DATAB,Bb,A,Ab,G,Gb,F, 
;B,Bb,A,Ab,G,Gb,F,E,Eb,D,Db, 

B: G,Gb,F,E,Eb,D,Db,C,B,Bb,A, Ab, 


5 
Ar 
E ,Eb,D ;Do,C 

‚B,Bb,A,A 


8,9,9,10,10,11,12,12,13,13,14,15,15,16 


BEEBUG MAG 


April/May 1983 


Volume-2  lssue-1' 


16 


BEEBUG MAG April/May 1983 Volume-2  Issue-1 


ACO 


good games from Acornsoft. Thanks 
are due to Thomas and John Webb for 
their assistance with the Arcadians 
review. 


TITLE: ARCADIANS PRICE £9.95 

For me this is the best of the 
four Acornsoft programs reviewed in 
that it has been particularly well 
thought out. When loaded the program 
displays instructions, high scores, 
points awarded, gives demonstrations 
of the game and repeats the process 
until you choose the type of game 
that you require (very much like a 
dedicated arcade game). 

The game involves shooting down 
hoardes of aliens(!) that swoop down 
in groups and bomb your missile 
blaster. The game gets very difficult 
after a few sheets of aliens have 
been killed. It is a truly addictive 
game, and represents good value for 
" money. 


TITLE: SNOOKER PRICE £9,95 

Representing a game of snooker on 
a micro such as the Beeb is 
definitely not easy, especially with 
8 coloured balls and a green table. 
Acornsoft have managed to reproduce 
the colours extremely well, although 
the green ball is cyan and the pink 
and brown can get mixed up if you're 
not careful. It plays to almost 
perfect rules and is very easy to 
control. It rates well above any 
other snooker or billiards program 
I've seen and will keep you happy for 
a long time. One point I must stress 
is that this is a game that requires 
a COLOUR display. 


TITLE: INVADERS PRICE £9.95 

This is a good variation of the 
popular arcade game which runs in 
mode ] and presents the player with 
various types of creatures such as an 
octopus(?), a crab, and other less 
recognisables. 

The program runs smoothly and has 
3 skill levels, the third of which 
has bombs which follow your base. The 
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that you are likely to find. 


REVIEW 


game is very imaginative and as with 
all Acornsoft games it is fun to 
play. (Does anybody know what comes 
after the rows of crocodiles?). 


TITLE: ROCKET RAID PRICE £9.95 
This is Acornsofts version of 
'SCRAMBLE' and as with most of their 


games it is a faithful copy of the 
original. 

You pilot a spacecraft which 
travels through rocky caverns 


avoiding enemy rockets, fizzers etc. 
At the same time you must fire at 
fuel dumps to replenish your 
ever-dwindling supply. 


The game requires great dexterity 
which means that it will take a long 
time before you fully master it. 

Some points against this game are 
that the 'bomb' key is next to the 
escape key and this causes much 
frustration when the game suddenly 
ends; the landscape never changes 
from game to game; the missiles 
always attack in the same place and 
the screen shudders when a rocket 
takes off. 

Overall however, it must be said 
that ROCKET RAID is an extremely good 
game, with some of the best graphics 
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In this article David Tall gives 
some very useful ideas on program 
saving, and on how to make back-up 
copies. His discussions are generally 
directed to cassette based programs, 
though most are applicable to disc. 


It is a good plan to make back-up 
copies of all programs; you never 
know when an accidental erasure will 
leave you lamenting after it is too 
late. For instance, a common fault 
is to put tapes on top of the 
television where the powerful 
magnetic force forming the TV picture 
can ruin them. Even the static 
electricity in an atmosphere lacking 
humidity can wipe them out. 


The simplest way of making copies 
of a program on cassette is tape to 
tape. The five second signal at the 
beginning of each program 
conveniently lets you set the volume 
level. However, if you have a disc 
drive or you only possess one tape 
recorder, the only method is to save 
the program from computer memory. As 
indicated by Andrew Donald (BEEBUG 
vol.] no.9 p.7), should the program 
be anything other than straight Basic 
the usual SAVE command will not 
suffice. If there is machine code or 
data after a Basic program then you 
will only save the Basic, not the 
rest. 


The universal solution for saving 
programs is provided by the *0PT1,2 
command, briefly indicated on page 
398 of the User Guide. Type *0PT1,2 
and then, whether the program is in 
Basic, machine code or a mixture of 
the two, *LOAD it. When the loading 
is finished you will obtain a message 
like the following: 


PROGRAM ØA @A12 ØØØØØEØØ  ØØØØØFBA 
pages bytes load start 


The first two blocks of numbers you 
will recognise as the number of pages 
and the number of bytes that normally 
feature in the loading message. The 
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two additional pieces df information 
are the load and start address. They 
are eight digit hexadecimal numbers. 
Usually the first four numbers are 
0000 but sometimes they are FFFF. It 
does not matter which; they are ready 
for future expansion. For our 
purposes we only require the last 
four. To save the program simply 
type: 

*SAVE "PROGRAM" ØEØØ+ØA12 ØFBA 
Note the change in order: load+bytes 
Start. The plus sign is essential, 
So don't miss it out (see page 392 of 
the User Guide). If you wish you can 
omit the quotation marks and the 
leading zeros in any number so that a 
shortened version could be: 

*5. PROGRAM EØØ+A12 FBA 
You may also leave out the start 
address in two cases: 
(i) if it is the same as the load 
address 
(ii) if it is SØIF. 


In the first case start and load 
are taken equal by default, in the 
second the program is in Basic, &8@1F 
being the location in ROM where Basic 
is initialised. 


When you have *SAVEd the program 
as indicated, if you *RUN it then it 
will be located exactly where it was 
saved and run as machine code. It is 
a good idea to take a note of the 
numbers used in saving, particularly 
the start address, because the 
program may be CALLed using this 
location. For instance, CALL &FBA 
would run the given example. It is 
also a good idea to find the contents 
of locations PAGE and PAGE+] and note 
them down. (Type in PRINT ?PAGE and 
PRINT — ?(PAGE-*1)). Should your 
program be in machine code and you 
need to BREAK it to stop it (as with 
many commercial programs), then you 
can often reconstitute it and start 
again, first by typing OLD and 
ignoring the Bad Program' message 
(which simply says it isn't Basic) 
and then by putting back the original 
values in locations PAGE and PAGE+1. 


(Type ?PAGE= ‘the original value in 


Volume-2  Issue-1 


PAGE'and similarly the ?(PAGE+1).) 
Unhappily some manufacturers use 
*KEY1Ø to put garbage into part of 
the program when the BREAK key is 
pressed so this method will not 
always work. 


If the program is CHAINed then, 
regardless of the position in memory 
when it was saved, the program will 
be loaded starting at the current 
PAGE number and will be RUN in the 
normal way. Provided that it begins 
as a Basic program this will work. 
The instructions on some 
manufacturer's programs to *LOAD and 
then to RUN are therefore not 
necessary, they only need to be 
CHAINed. 


Many programs have a dual facility 
by including as a single line of 
Basic the CALL to the location where 
the machine code starts. For 
instance the given example might have 
begun with 

10 CALL &FBA 
Such a program may be *RUN or CHAINed 
to run it. For this reason it is 
worth having a peep at the program to 
see if it can be used in this way. 


Only on one machine code program 
to date, have these methods failed. 
This was because the machine code was 
copied from a chip starting from 
address zero. If *LOADed it begins 
to overwrite the parts of zero page 
which do the LOADing and gets hung 
up. In such a case, issue the 


command *OPT1,2 as usual and then 
*CAT the program. 
be given as before. 


The details will 
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is not loaded over 


The program 
zero page in normal usage. It must 
therefore be relocatable and in 
practise be *LOADed at another 
address by an auxilliary program. 
The method of saving a back-up copy 
is to save it at any convenient 
address. If, for sake of argument, 
its details were: 


SNEAKY 03 0400 00000000 00000000 
then you must make a note of its 
length (400) and the *LOAD it at a 
convenient address, say: 

*LOAD SNEAKY 2000 


The messages you get on loading will 
still relate to the original 
locations but the code will actually 
be loaded beginning at &2ØØØ. You 
now save it with the instruction: 


*SAVE SNEAKY 2ØØØ+4ØØ 


By using techniques such as these, 
hopefully you can make back-up copies 
of all your programs to guard against 
accidental erasure at some later 
date. You can get quite a number of 
programs on a long hi-fi cassette. 
But do keep them in a safe place away 
from your main copies. You don't 
want to lose them through the same 
catastrophe that might afflict your 
working versions! 


We should add that some commercial 
programs have been saved without an 
obvious start address so as to 
prevent the use of *OPT 1,2. Also it 
is possible to protect disc-based 
software at various levels, making 
the copying process a very difficult 
one. 
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by David Graham and Colin Opie 


The Torch Disc Pack offers the 
owner of a BBC model B with disc 
interface, an upgrade consisting of 
dual 4@@k disc drives together with a 
second processor and an extra 64k of 
memory for only £78Ø+VAT. This is not 
much more expensive than other dual 
drive units for the Beeb. AS such, 
this package must look attractive to 
anyone whose pocket will stretch that 
far; but there are hidden snags, as 
we report below. 


INSTALLATION 

The unit is mneatly packed, and 
comes with a utilities disc and 
ROM-based operating system. The 
manuals supplied were in fact manuals 
for the Torch computer rather than 
the Beeb-plus-add-on; and this gives 
a clue to what is about to take 
place. Your model B is about to be 
transformed into "almost a Torch 
computer"; perhaps not too 
surprising, since the Torch computer 
is based on a Beeb main board. 
Transformation involves, amongst 
other things, removing the power 
supply from the Beeb, and this needs 
considerable care. When you have made 
the conversion, and switch on your 
machine, it announces itself as a 
Torch computer, and if you have left 
the BBC disc filing system chip in 
your machine alongside its Torch 
counterpart, you now have a machine 
which can operate in two possible 
modes. | 


BBC WITH DISCS 
In this mode the machine behaves 

just like a BBC model B with discs. 
The second processor is not used, and 
the extra 64k of memory cannot be 
employed for normal tasks such as 
running a BBC Basic program. There 
are two further snags to this mode of 
operation: 

(1) you are not provided with a BBC 
utilities disc or disc manual for 
BBC operation - though BEEBUG vol. 
1 no. 19 will help here in 
providing a disc formatter program 
and a summary of DFS commands. 


BEEBUG MAG 


0 DISC PACK 


April/May 1983 


(2) Because track buffering is 
handled differently on the Torch 
from that on the Acorn DFS, the 
disc heads click on and off 
excessively during reading and 
writing (especially with text 
files). It is not the noise itself 
that is worrying, but the wear to 
the mechanism. 


ALMOST-A-TORCH 


In this mode the drives no longer 
click excessively, and your machine 
behaves like a  Z80-based Torch 
computer, with the Beeb handling 
input-output. In this state it will 
not read BBC discs, or run BBC Basic 
or assembler. Instead it has two 
immediate possibilities: 288 machine 
code or something called CPN. This is 
a Torch version of CP/M, which is a 
universal I/O and  file-handling 
system. Torch however do not offer 
any CPN support software - there is 
no currently available high level 
language of any description - and 
this is perhaps the biggest 
disincentive to buying the Torch Disc 
Pack. The CPN operating system does 
enable access to the OSBYTE, OSCLI, 
OSWRCH and OSWORD calls, but this is 
a little specialised for the average 
user. i 
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CONCLUSION 


As a piece of equipment in its own available package, if you want access 
right, the Torch Z8@ Disc Pack is to the Sound and Graphics of the 
well designed and packaged. Without Beeb. It will be interesting to see 
more suitable software support its how Acorn's 280 second processor 
twin processing capability cannot be add-on matches up to Torch's. Acorn 
fully realised, and it is too are, we understand, developing a 
expensive to use simply as a disc version of BBC Basic which will run 
unit. Suitable CP/M languages are on their Z8Ø unit. 
available but these are an added 
expense, and you will still have to Note - we understand that the Torch 
write a number of procedures to Disc Pack is now supplied with a 


tomise any such 


commercially 


manual of its 


LES AND REGULAR POLYGONS 
Chris Eilbeck knows of a way to speed up the drawing of circles and. polygons in 
Basic. Most programs which draw regular n-sided polygons or circles (large n) do so 
by repeated calculation of trigometric functions, which is slow and inefficient. 
For example, to draw a circle with centre at the point (500,508) with radius 399, 
the following could be used: 


98 MODE Ø: TIME=Ø 140 FOR THETA=Ø TO 2*PI STEP T 
100 X0-500: YØ=5ØØ 150 DRAW XØ+R*COS (THETA) , YØ+ 
118 N3=1ØØ: T-2*PI/NS . R*SIN (THETA) 

120 R =3ØØ 160 NEXT THETA 
130 MOVE XØ+R,YØ 178 PRINT TIME 


This takes 5.29 seconds. A much more efficient way is to use the well-known 
trigometric identities: 

cos(mtl)t = cos(mt)cos(t) - sin(mt)sin(t) 

sin(m+l)t = sin(mt)cos(t) + Cos (mt) sin(t) 
for m = 1,...n, which means only one sine and cosine need to be calculated before 
the loop is entered. The resulting program looks like this: 


290 MODE Ø: TIME=Ø 350 FOR M$-] TO N% 
300 XØ=5ØØ: Y0-500 360 X-X]l*C-Y1l*S 
310 N$-100: T=2*PI/N% 370 Y=X1*S+Y1*C 
320 S-SIN(T): C=COS(T) 380 DRAW XØ+X,YØ+Y 
330 R-300: Xl-R: Y1=Ø 3990 Xl-X: Yl-Y 

340 MOVE XØ+X1,YØ+Y] 400 NEXT M$ 


410 PRINT TIME 
This takes only 1.83 seconds - almost three times faster! 


L-NOTE** If you have a 16K machine then you will need to chani" 


*, 7, te ete oie te ete aa ata tt 9.9.0 07e e e 00 000 a 9 0 0 0900 09 09 999402900000 05960966060099929 
* 


$29 919 9,9,9,9,9,9 0 956 Ne he 49, 9,9, 9, 
Met we o 9 * * e e e a PB S AE o a tea 


SPACE INVADER PROMPT ring 
The VDU23 call can be used ver 


Epen panan E d ET eee THD ters 


Hi 


ug jg ig aT 
y amusingly to re-defin 


e the prompt symbol '>! 


(ASCII 62) to be a 'space-invader', Try the following: e 
VDU 23,62,60,126,219,255,126,60,36,66 BE 


Now you will see a space-invader as a prompt in all modes except Mode7. If you want 
to turn the whole character set into space invaders, try: | 
FOR A =32 TO 255:VDU 23,A,60,126,219,255,126,60,36,66:NEXT A 
Again this does not have any effect in Mode7. Alan Webster. 
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pro d pr UTILITY EDITOR 


(16k/32k) 


QS. Program by Paul Otto. T. Burgess, A. Caleraft 


When developing a program much 
time can be wasted scanning the 
listing to locate a specific 
procedure, function or character 
string that needs to be changed. The 
program listed with this article is a 
mini editor, which can be loaded into 
the computer along with your 
development program, to allow you to: 
1) List all occurrences of a 

specific string, including 

search for Basic Keywords. 

2) Change all occurrences of a 
specific string to any new 
string that is equal or shorter 
in length than the original 
string, thus allowing you 
globally to change variable 
names. - 

3) List the starting line number 
and name of each procedure 
used. 

4) List the starting line number 
and name of each function used. 


BASIC KEYWORDS 

As you have probably heard,. when 
the computer stores a program in its 
memory, it converts all Basic 
Keywords (such as If, PRINT, SOUND, 
GOTO ...etc) into tokens. What .this 
means is that rather than store all 
these, sometimes long, and frequently 
repeated words actually as they are 
spelt, it simply stores each of them 
as a 1 byte code (token). 

This leads to much more economical 
use of storage space. However, it 
does result in a problem for string 
search programs; quite simply, 
searching for say, "Print" is a waste 
of time, as it has been stored in 
memory as 24]. (see User Guide 
page 484) 

A special feature of this editor 
is that option ] will allow’ you to 
search for any string, INCLUDING a 
keyword, if you wish. This is 
achieved by special procedures which 
use the table at &8@6D (&8@71 in 
BASIC IT) in ROM to perform a 
conversion of the keyword in the 
string that you specify. 


Text by Adrian Caleraft 


LIMITATIONS 
The editor is stored for 


convenience just below Mode 7 HIMEM. 
Consequently running a development 
program which uses a Mode other than 
7, with the ‘editor also in memory, 
will overwrite the editor. This is 
no real problem as it is not 
necessary to run the user program 
while the editor is in situ, and in 
any case, the editor is easily 
reloaded. It should be noted that 
the string replace (option 2), will 
NOT locate or replace keywords. 

Even with these minor restrictions 
the editor is a very useful tool, 
especially if you do not have the use 
of a printer with which to produce 
full program listings for inspection. 


PROGRAM DETAILS 


The program is in fact a 
combination of several procedures, 
sent in mainly by two members. We 
are most grateful to T Burgess for 
the first (PROCREPL) and to P Otto 
for (PROCLISTT PROCLISTP and 
PROCLISTF). 

The procedures have been combined 
and are accessed via a menu, to 
create a single more powerful editor. 

However, if you decide that you are 
interested say, in only one of the 
procedures, they are easily 
separated. 
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TO SET UP THE EDITOR 

Type in the editor as listed. To 
enable two programs to be in memory 
at the same time (the editor and the 
program you will use it on), the 
editor is stored at the top of 
available memory, out of the way. 
Obviously the actual location of this 
will differ between 16k and 32k 
machines. Therefore, if you have a 
16k machine, alter line 1Ø to: 

10 *KEYØPAGE=3ØØØ | MRUN | M 

Note that the default value of PAGE 
on the BBC machine is &19ØØ when a 
disc interface is fitted to the 
computer, (rather than &E@@ on 
cassette-based machines). 
If you have a disc system then change 
line 2Ø to: 
20 page-&l900 


Once you have typed in the program 
check your version against the 
original listing, given at the end of 
this article, and then save a copy to 
tape or disc, under the file name 
"EDITOR", 


TO USE THE EDITOR 

1) I£ you have a 16k machine type 
PAGE-&3000 «return» 

If you have a 32k machine type 
PAGE-&7000 «return» 

2) Load and run the program using 
CHAIN"EDITOR", Running it will 
immediately set the red function 
key (£8) ready for later use. 

3) Now press ESCAPE. This will stop 
the editor from running further. 

4) Press function key 1. You are now 
ready to load in your development 
program in the normal way. 

5) To invoke the editor use function 


key @, which will take you to the 


editor menu. 

6) Having finished using the editor 
select option 5 to continue with 
your program. 


ABOUT THE EDITOR 
When you run the editor you will 
be presented with a menu offering the 
5 options. To choose an option 
Simply use the relevant key, as 
indicated. All other entries are 
locked out. I£ you enter ] or 2 you 
will be prompted for a search string. 
Simply enter your string and then 
press return. Option 2 will also 
prompt you for a replace string which 
you key-in in the same way. 
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As already mentioned, option 1 
will allow you to search for strings 
including a keyword. To tell the 
computer that the relevant part of 


the string is a keyword, it must be 


enclosed in 2 slashes (/). eg: 
To search for PRINT "HELLO" 
enter /PRINT/ "HELLO" 
To search for REPEAT 
enter /REPEAT/ 
To search for A%=A%+1l :NEXT B% 
enter A$=A%+1 :/NEXT/ BS 


As you see you must enter the 
search string exactly as it exists in 
the program, but adding / symbols 
around the keyword, if there is one. 
***ONLY 1 KEYWORD MAY BE SEARCHED FOR 
IN ANY 1 STRING*** ij 


If the program can not find the 
keyword specified it will print an 
error message, and continue the 
search with the string exactly as you 
entered it. 

If you choose options 3 or 4 no 
prompts are required and the search 
for procedures or functions is 
initiated immediately. 

Having displayed the relevant line 
numbers (if there are any to display) 
the editor will prompt you to press. 
return, upon which the menu will be 
redisplayed, ready for your next 
command . To return to your 
development program select option 5. 
***NOTE*** All options put the 
display in "paged mode". This 
prevents the located line numbers 
from being displayed, only to scroll 
off the top of the screen. If a full 
screen is displayed, pressting 
"Shift" will display the next 
screenful. 


IF YOU HAVE PROBLEMS 


If upon running the editor you get 
an error message indicating that the 
computer has run out of room (eg. 
DIM space), it probably means that 
your version of the program has 
become longer than the original. 
This may be due to accidentally 
adding extra spaces. If this is so 
you can very easily overcome this by 
reloading the program slightly lower 
in memory (eg. &6FØØ for 32k and 
&2FØØ for 16k machines). If you have 
to do this, don't forget to alter 
line 18 to reflect the new start 
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ERROR MESSAGES 
, "Error try again". This is only 
issued by option 2 and indicates 
either that you have attempted to 
replace a string by a longer string, 
which is not allowed, or that the 
editor cannot find the program to 
edit. | 

"Invalid Keyword”. This is 
displayed by option ] and indicates 
that you have attempted to search for 
a Basic Keyword which has not been 
found in the table. eg /PRNT/ . If 
this is specified as a search 
argument in option 1, the error 
message will be given. The search 
will continue, however, for the 
actual string /PRNT/. ie no 
conversion will take place, 


The keyword table replacement 
routine will only be able to locate 
the keywords exactly as they are 
Stored in the ROM memory. You will 
find it useful to know that the token 
for INSTR assumes the first bracket, 
and so should be searched for as 
/INSTR(/. This also applies for 
LEFTS, which is searched for as 
/LEFTS(/ , MIDS which is /MIDS(/ , 
POINT which is /POINT(/ , RIGHTS 
which is /RIGHT$(/ , STRINGS which is 
/STRINGS(/ and TAB which is /TAB(/ . 

The following keywords are stored 
twice in the table, only the first 
entry is accessed by the conversion 
program. These are..PAGE, PTR, TIME, 
LOMEM, HIMEM, 

If a search is requested for a 
string containing a keyword and 
nothing else, after conversion, the 
program will be searching for a 
single byte (the token). It is 
possible that this byte may occur in 
a different context within the 
program, eg as part of a line number. 

If this is the case, the program 
will erroneously report a line 
number. This happens in practice 
very rarely, and only on searches for 
strings containing just a keyword and 
nothing else. 

Searching for GOTO followed by a 
line number, eg /GOTO/2ØØ ‚will not 
work. This is beceause the line 
number after a GOTO, is stored by the 
computer in coded form too. 


A TIP FOR USERS WITH DISC SYSTEMS 


You may find it more convenient t 
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load and run this prog rom 
another program. This will save you 
having to set PAGE every time you 
decide to load the editor again. To 
this end save the main program as 
"EDITOR" and save the following two 
line program as "EDSTART". 
10 PAGE=&7ØØØ 
20 CHAIN "EDITOR" 
So now to load and run the editor you 
need only to enter, CHAIN "EDSTART" 


****NOTE**** Do not forget to 
customise the program to your machine 
if you have a 16k or disc system, as 
described above. 

Finally, note that the variable 
"page" occurs at several points in 
the program, and that it MUST be 
typed in lower case. 


BSR HE AAK IK AAK NK 0 5,9, 9 7, 7,47, 7,9, 9 0 000.000 86060800008 EEEE ee ee wees 
I ee ETE BE Ie MMM NN hee OM OO OE NE A he 
TEN OI ED e o ones, 


10 *KEYØPAGE=&7ØØØ | MRUN | M 

20 page=&EØØ:REM Type page in lower case 

30 DIM T$12,R$12,P$250 

48 MODE7 

58 CLS:PRINT TAB(11,5)"EDITOR MENU" 

60 PRINT TAB(5,7)"ENTER OPTION..1,2,3,4 
OR 5" 

78 PRINT TAB(5,9)"]..STRING SEARCH. . INCL/ 
KEYWDS/" 

80 PRINT TAB(5,1Ø)"2..STRING REPLACE" 

90 PRINT TAB(5,11)"3..LIST PROCEDURES" 

100 PRINT TAB(5,12)"4..LIST FUNCTIONS" 

119 PRINT TAB(5,13)"5..RETURN TO PROGRAM 
BEING EDITED" 

126 ON INSTR("12345",GET$) GOTO 139,148, 
150,160,180ELSE 50 

130 INPUT"SEARCH STRING.."SP$: PROCSTRT: 
PROCLISTT ($P%) :GOTO 179 

149 PROCREPL: GOTO 170 

150 PROCLISTP: GOTO 179 

168 PROCLISTF 

178 INPUT"COMPLETED. .PRESS RETURN" SP%: 
GOTO5Ø 

188 PAGE=page : END 

198 DEFPROCREPL 

200 B%=page+] :Q%=B%: INPUT" SEARCH STRING. ." 
STS: INPUT"REPLACE STRING.."S$R% :PRINT" THE 
FOLLOWING LINES ALTERED..": VDU14 

210 IF ?(Q%)=&FF OR LEN(SR%) >LEN (STS) 
PRINT"Error, try again" :VDU15:ENDPROC 

220 REPEAT: V%=? (B%+2) :FOR X$-1 TO V%:?(0%+ 
X%-1)=? (B$4X$-1) : NEXT 

230 REPEAT:IF ?(0%+2)-4<LEN(ST$) LOC=Ø: 
GOTO270 i 

249 SP$-"":FOR C$-0$-3 TO Q%+?(Q%+2)-2:$P$ 
=SP%+CHRS (?C%) : NEXT: LOC-INSTR($P$ , $T$) : IF LO 
C=Ø GOTO 278 ELSE IF $T%=$R% PRINT 256*?(Q$) 
+? (Q%+1) : LOC=Ø:GOT027Ø 

259 FOR C%=1 TO LEN(SR$):?(Q$4LOC414C$)- 
ASC(MIDS(SR$,C$,1)):NEXT:FOR C%=1 TO ?(0%+2) 
-LOC-LEN ($T%) -2:? (O8+LOC+LEN ($R$) +C$+1) =? (Q$ 
+LOC+LEN ($T$) +C3+1) : NEXT 

26Ø ?(Q%+2) =? (Q%+2) +LEN ($R%) -LEN (ST%) : PRIN 
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619 IF F%=&FF PRINT" INVALID KEYWORD" : ENDPR 


270 UNTIL LOC=9:0%=0%+? (0%+2) :B%=B%+V% 


288 UNTIL (?(B%-1)=&ØD AND ?(B%)=&FF) OR OC 
B%=LOMEM :? (0%) =&FF 620 A&-P$:P$-P$-] 
290 VDU]5:ENDPROC 630 REPEAT P%=P%+1:UNTIL ?P$-&2F 
300 REM 640 ?P%=F%: Z%=P%+1 
318 DEFPROCLISTT ($P%) : PROCPROGSCH ($P%, Ø) :P 650 REPEAT P%=P%+1:UNTIL ?P%=&2F 
RINT: ENDPROC 660 REPEAT: P%=P%+1:72%3=?P% :2%=2%+1: UNTI 
320 REM L P%=0% 
33@ DEFPROCLISTP 670 P%=A%:SP%=MIDS(SA%,1,Z%-A%) 
340 PRINT"Searching for DEFPROC" : PROCPROGS 680 ENDPROC 
CH (CHRS&DD+CHRS&F2,-1) 690 REM 
358 PRINT"Searching for DEF PROC" : PROCPROG 700 DEFPROCTEST 
SCH (CHR$S&DD+" "+CHRS&F2,-1) 710 F3=Ø 
360  ENDPROC 720 D$-&806D 
370 REM 730 REPEAT 
380 DEFPROCLISTF 748 IF ?D%=?X% PROCCHK 
398 PRINT"Searching for DEFFN":PROCPROGSCH 750 IF F%=Ø REPEAT:D%=D%+1:UNTIL ?D%>&7F: 
(CHRS&DD+CHRS&A4 ,-1) D%=D%+2 
400 PRINT" Searching for DEF FN” :PROCPROGSC 760 IF D$»&8348 OR ?D%>?X% F$-&FF 
H(CHRS&DD+" "+CHRS&A4,-1) 778 UNTIL F%<>Ø 
418 ENDPROC 788 ENDPROC 
428 REM 798 DEFPROCCHK 
438 DEFPROCPROGSCH($P%,DISP%) 800 C3=D% :F3=] 
44Ø K%=LEN($P%) : VDU14:A%=0% :@%=8 sASTS="" 81Ø FOR N3=Ø TO B$-] 
450 IF DISP$0$-6:AST$z"*" 820 IF X%?N% <> ?C$ F$-0 
468 I$-page-] 830 C%=C%+] : NEXT 
470 REPEAT: I%=I%+1 :IF?I%=P%?B PROCLOOP 840 IF ?C% < &80 OR C%?1 > &24 AND C$?] <> 
480 UNTIL ?I£-&0D AND I$?1=&FF:VDU15:PRINT &43 F%=Ø 
:0$—A$ 850 IF F%=] F$-?C$ 
490 ENDPROC 860 ENDPROC 
500 REM 870 DEFPROCLOOP 
518 DEFPROCSTRT 880 C%=1:FOR J$-I$-] TO I%+K%: IF ?J$-P$? 
520 A$-P$-1:0$-P$-4LEN(S$P$):Y$-0 C$ C%=C%+1 ELSE J%=K%+I% 
530 FORN$-] TO2 890 NEXT:IF C$«K$ ENDPROC 
540 X$-Y$ 900 FOR J$-I$-] TO I$-254 STEP-1:IF ?(J$-2 
559 REPEAT:A-A$-]1:UNTIL ?A$-&2F OR A$>=0% )=13 PRINT AST$;?J$4?2(J$-1)*256,;: J%=I%-254 


569 
570 
580 


IF ?A$-&2F Y%=A% 
NEXT 
IF X%=Ø OR X%=Y% ENDPROC 


sIF DISP$X$-I$-K$:PRINT" ";:REPEAT:Y$-?X$:PR 


INT CHR$(Y$);:X$-X$4-]:UNTIL Y%=13 OR Y%=58 
OR Y$-6]:PRINT 


590 X$-X$41:B$-Y$-X$ 
600 PROCTEST 


918 NEXT: ENDPROC 


REMOVING SPACES AT THE END OF LINES 


When entering or editing lines of BBC Basic, unwanted spaces may be accidentally 


inserted at the end of any line. 


These do no harm other than increase the size of 
the program, but this is often undesirable. To remove these spaces it 


is necessary 


to highlight them in some way, and this can be easily done using any mode other than 


Mode 7. 


Contrary to implications 


in the User Guide (see p.384), any character with an 


ASCII value greater than 31 can be redefined, without having to reserve memory or 


‘explode’ the character 


store using special FX calls, (the only restriction being 


that not more than 32 different definitions can be obtained without these other 


operations being performed), 


and this 


is true for any operating system. The 


important point is that there is only space for 32 definitions and that ASCII codes 
32-63, 64-95 etc. up to 224-255 map on to the same definition Storage area. 

By redefining the space character (ASCII 32) to be a large white rectangle, a 
listing will show them up clearly and the COPY facility can be used to copy a line 
up to where the extra spaces start, hence 'deleting' the unwanted spaces. 


To see this effect type in a few lines of Basic that have extra Spaces on the 
end. Now type in immediate mode the following: 


MODE6:VDU 19,0,1,0,0,0:VDU 23,32,255, 255,255,255,255,255,255,255 
List your program again and you will be able to see all those spaces! 


Alan' Webster 
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NEWCO TS START 
MENTS IN MODE 7 


TE m 
MI Ad? 
E i NG 
Li i Ad 
a 
I E TE 


A David Graham 


We Pas received ve er Some ear ay articles gu TEN newcomers 
to computing. Here is an offering from David Graham in which he assumes very little 


previous knowledge. The article covers the use of PRINT and TAB Statements, 


Some control codes in mode 7. 


The BBC micro has 8 possible 
display modes, they differ in the 
Size of printed characters, the 
number of colours available, and the 
so-called graphics  'resolution' - 
. this is just the degree of  fineness 
or  chunkiness of the graphics 
picture. The modes which give the 
most colours’ and the highest 
resolution are generally those which 
use up the most memory. Mode 7, 
which has a very low resolution 
picture capability but offers 7 
colours, uses up only about 100 
units (or bytes) of memory, whereas 
mode 1 takes up over 20,000 (and 
leaves precious little memory for any 
programs to reside in). 


Because it uses so little memory 
in a machine where memory space is at 
a premium, Mode 7 is a particularly 
important one for BBC users. It is 
also called the Teletext mode. This 

. is because it uses all the same 
conventions as Teletext systems such 
as Prestel or Oracle; and it is by 
using mode 7 that it is possible to 
dial into Prestel with a small add-on 
to your Beeb. 


Mode 7 is different from graphics 
modes such as 1, 2, A and 5 in an 
important respect; you cannot use 
commands like PLOT and DRAW to draw 
lines or fill triangles. Instead 
everything must be put on to the 
Screen using the ordinary PRINT 
Statement or equivalent. Do not 
however think that Mode 7 is an 
uninteresting one; quite the reverse. 


GETTING INTO MODE 7 

When you turn on your machine (or 
hit the BREAK key at any time) the 
machine automatically defaults to 
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mode 7. If you are in another mode, 
you can change to mode 7 by typing 
MODE 7 <return> (where <return> means 
press the key marked RETURN). There 
is an abbreviation for this command. 
It is MO. 7 <return>. Most. keywords 
in BBC Basic have abbreviations. A 
full list is given on pages 483 and 
484 of the User Guide (or on the 
BEEBUG Reference Card). 


PRINT STATEMENTS 

The most commonly used way of 
printing text on the screen is the 
PRINT statement. You place in quotes 
after it the text to be printed - eg 
type: 

PRINT "This is a test" «return» 

The computer should do as requested, 
and print the text below the command 
line. 


TAB, 

There is a TAB statement in BBC 
Basic, rather like a typewriter tab. 
It allows you to place your printed 
text anywhere on a line or anywhere 
on the whole screen in fact. Try 
typing: 

PRINT TAB(1Ø) "HELLO" <return> x 
You should see that the text will be 
indented by 10 characters. If you 
wish to specify which line the text 
is to appear on, you can do this as 
follows: 

PRINT TAB(15,4) "TEST" 

This places the word TEST fifteen 
characters along on the fourth line 
down the screen. If there happens to 
be something on the screen in that 
position, it will be overwritten. 


4g x 25 SCREEN 
In each mode, there is a fixed 
number of character | positions 


available for printing. In Mode 7 
there are 25 lines on which text may 
be placed (labelled Ø to 24), and 

each line can accommodate up to 40 


and 
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characters (the positions being 
numbered from Ø to 39). If you try 
to print further along than character 
39, the text will automatically spill 

over on to the next line. If the 
screen is full, it will scroll 
upwards to leave space below. 


COLOURS 


There are 7 possible colours in 


Mode 7 if you include white, and each 
has associated with it a code number. 
These are listed below. 


Code Colour 132 Blue 
129 Red 133 Magenta 
130 Green 134 Cyan 
131 Yellow 135 White 


To get a line of coloured text, you 
must insert an invisible colour code 
character before the text. One way 
to do this is with the CHR$ command. 
Try the following: 

PRINT CHRS (130) "GREEN TEXT" «return» 
The text will be printed in green 
(providing you are in Mode 7). The 
code telling the computer to put the 
text in green is printed invisibly in 
the character position immediately to 
the left of the word GREEN, as the 
computer has printed it. You can 
test this by using the 4| (up arrow) 
and COPY cursors to copy the line of 
green text. Unless you start copying 
at the space before the word GREEN, 
the text will copy over as white. 
You can experiment with the other 
colour codes; and they may be used in 
combination. Try: 

PRINT CHRS (129) "RED TEXT" ;CHRS (133) 
"MAGENTA TEXT" <return> 


BACKGROUND 


It is possible to alter the 
background colour on any line from 
natural black to one of the 7 
colours, To do this you use code 
157. This means "change background 
colour to the current text colour". 
Thus: 

PRINT CHRS (129) ; CHR$ (157) ;CHRS (132) 
"BLUE TEXT ON RED BACKGROUND"<return> 
will give a background band of red 
with the text in blue. This is 
because the code preceding the "set 
background code" is 129 - the code 
for red - and this is followed by the 
code that sets the foreground. Some 
quite striking effects can be 
achieved in this way. 

VDU COMMANDS 

It is possible to abbreviate the 
sequence of CHR$ commands on the BBC 
micro using a single "VDU" command. 
This is used outside a print 
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statement. The above example can now 


be replaced with the Sterten ST 
version: 


| VDUI29,157,132:PRINT"BLUE TEXT ON RED 


BACKGROUND" <return> 
OTHER EFFECTS 

A number of other effects are 
possible in Mode 7, all achieved by 
the interplay of control codes. For 
example there is one for flashing 
characters (code 136 = Flash On, 137 
= Flash off), and another for double 
height characters. With the latter 
you must print the same line of text 
twice, as you can see if you type: 
PRINT CHR$ (141) POSUEDE HEIGHT" 
«return» 
You need to enter it twice, as 
follows 
PRINT CHRS (141) "DOUBLE HEIGHT": PRINT 
CHR$(141)"DOUBLE HEIGHT" <return> 
With a little ingenuity, you should 
be able to produce flashing double 


USE WITHIN A PROGRAM 


The ideas suggested above may 
easily be incorporated into programs 
of your own design. If you have not 
written a program before, it is done 
by preceding statements with a number 
- usually increasing in steps of 10. 
For example enter the following: 

18 MODE 7 «return». 

20 PRINT TAB(1Ø,1Ø) CHR$ (129) ;CHRS( 
157); CHR$(132) "BLUE TEXT ON a red 
background" «return» 

Each time you type RUN return», 
the sequence will be executed in line 
number order. The command LIST 
«return» (or L.<return») will list 
the program. It may be saved on a 
cassette with SAVE"COLOURS" «return», 
and loaded back in with LOAD 
"COLOURS" «return», or just LO,"" 


<return>, 


For more ideas on mode 7 see 
BEEBUG vol.] no.4 p.7 and the User 
Guide p.159. 
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February 
explained how to run a program from 
disc automatically when SHIFT and 
BREAK are pressed simultaneously. One 
use of this is to present a menu of 
the programs available on the disc, 
which may then be selected with a 
single key rather than having to type 
CHAIN"filename", 


The 


The program listed below allows a 
menu of up to 19 filenames together 
with program descriptions to be 
presented after <shift><break>. The 
user then presses a single key to 
chain in the required program file. 
As well as giving single key 
Selection, the program allows ample 
description of each program, and 
helps rescue the user from the very 
limited seven character filenames of 
the Beeb's DFS. 


The program has been written to 
allow very simple setting up for new 
menus. Just follow these steps: 


1) Type the program 
from disc. 


in or 


2) Edit line 1750 to be the title of 


the Menu eg. 
Graphics, 

3) Edit lines 1800 to 2250 with as 
many programs as regired (up to 
19). Each DATA statement MUST 
contain three items for each 
program: the filename, the name to 


Games, Music, 
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DISC MENU PROGR 
by John Yale 


issue of  BEEBUG 


AM 


4) SAVE"! MENU" 

5) *BUILD"!BOOT" 
and enter the text: 
CHAIN" ! MENU" «return» 
then press escape. 

6) *OPT 4,3 


The disc is now ready for use. 
Hold down «shift» whilst pressing and 
releasing «break», and the menu will 
be displayed. Select a program by 
typing one of the letters shown. 


This program can only load Basic 
programs, so to use it with machine 
code a small Basic header should be 
used. A single line containing 
*RUN filename is all that is 
required. 


LOAD it 


be displayed and the description. 


een 
TS 


990 
1009 
1189 
11568 
1169 
1178 
1200 


"o" o" o" o" o" o"o" a" o "a" a" o" a e" oa" o "a" o" o" c" o" e" oV o" e" a" a" oa" o P a a Neve www. 


9,749959, 9,9 9, 9*4 ,9,9,9,9 9.0 010.0 0.0700 0.070 9 0-0 e^07070.0 0 9 9 9 n € 9 0 0 0 0 0 0 0 9 € 0 0 0 0 0 6 


9,9,9,9, 9,9, 9,9, 9 9 € 9 0 0 0 9 € 0 6 6 0, € 0,00 9,9 Q 9 O € 0 9 9, 0 0 0.0.0.0 9.0.0.0 0 990.0 0.0 0 6 0 & 9 & 9 


^m e m ^ m n m n e n A m n e n a a a e n n a m a e e a e a a a a a a S, 0,9, 9 9, 9 0 9,0, 9,9 9, 9 0 9,9, 9 9,09 Pa 


REM Menu program 
REM 22 Jan 1982 

ON ERROR GOTO 59260 
READ TITLES 

DIM F$(29) ,N$ (20) , DS (29) 

I=® 

REPEAT 

I=I+] 

READ F$ (I) ,N$ (I) ,D$(I) 

UNTIL F$(I)="DONE" 

MAX=I-1 

MODE 7 

PROCCENTRE (TITLES) 

FOR J-1 TO MAX 

IF MAX«10 THEN PRINT 

letter$ = CHR$(644J) + "," 

colour$ = CHR$(129+(J-1)MOD 6) 

PRINT letter$;colour$;N$ (J) ;TAB(14) ; 


J.Yale 


wo —w 2DS (J) 


1300 
1350 
1400 
ce ur 
1405 
1419 
1415 
1429 
1436 
A-64) 
1509 


NEXT 
VDU 28,0,24,39,VPOS 
PRINT'"Enter the letter of your choi 


REPEAT 

A-GET 

PRINT CHRS (A) 

REQ=A-64 

IF REQ>Ø AND REQ«-MAX THEN CHAIN F$( 


PRINT'"Select a letter from A to ":C 


HRS (MAX+64) ;" "e 


1505 
1510 
1529 
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UNTIL FALSE 
END 
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1600 DEF PROCCENTRE (TS) 2200 DATA RACER, Racing Cars ‚Racing along 


1600 DEF PROCCENTRE (T$) å track 

1605 PRINT! 2220 DATA STFIRE,Starfire,Space Battle Ga 
1610 L%=LEN (T$) /2 me 

1620 FOR Y=] TO 2 2230 

1630 PRINT CHR$141;CHR$134;TAB(20-L3);T$ 2240 

1640 NEXT 2250 — | 

1650 ENDPROC 2260 REM Add extra games above here 
1700 2270 REM This next line must be present 
1748 REM Enter Title of Disc here 2300 DATA DONE,DONE,DONE 

1750 DATA Various BEEBUG Games 5000 

1760 5010 REM Error routine 


1790 REM Filename,Game-title,Description 9020 REPORT 
1800 DATA 3DOXO,3-D Noughts & Crosses,3-D 5825 IF ERR<2ØØ PRINT ERL :END 


Noughts and Crosses | 5030 PRINT" ( ";F$(A-64);" )" 
1900 DATA ARTIST,Artist,Create your own p 2935 X-INKEY (500) 

ictures 5040 RUN 

2000 DATA CALEND,Calendar,Calendar Genera 5Ø5Ø END 
tor 


2100 DATA MAZE,Beebmaze,Maze Game 


TV SHAKE FIX 

Neil Morrison has a useful tip for anyone whose TV display shakes. He has found 
that use of VDU23,0,3,X,0;0;0; where X is between 18 and 25 may stop the shaking (it 
works on his anyway!). On his TV the top few lines of the display shake violently 
in modes 0-3 until this command is typed in. 
[This form of the VDU23 command programs the 'horizontal sync' register of the video 
controller chip and is therefore improving the 'locking' of the TV electronics to 
the computer's signal. Different values to those above may therefore be necessary 
for your particular TV or monitor. (See BEEBUG vol.] no.8 p.29). Ed] 


PROGRAMMABLE FUNCTION CALLS 

When a Function or a Procedure in Basic is called its name must follow the FN or 
PROC keyword. This is all very well, but if some kind of selection has to take 
place, at one or more points in a program, as to which routine to access the 
programming can become a little tedious and long-winded. 


David McTernan knows of a method to call Functions  'dynamically' by using a 
variable for the name part of the call, the appropriate Function then being accessed 
through a dummy EVAL expression. This provides a convenient and concise mechanism 
for accessing various subroutines. 


By way of example suppose we use 'A$' as the variable for the name of the 
Function (without 'FN'), then the following program will call the Function 'demo': 
1@ AS ="demo" 
20 ARG$="FN"+AS 
30 DUMMY=EVAL (ARGS) 


o 


100 END 
118 DEF FNdemo 
120 P."Dynamic call" 
130 = 9 
'AS' could also contain an argument list as long as the function is defined as 
having those arguments. Note that the above mechanism is really a form of Procedu 
call as the 'result' of the Pune Tan is not eden required. 
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One of the big advantages of the Teletext mode, is the ability to use 
double-height characters. With this little procedure, which can be incorporated in 
any program, you will be able to obtain double-height characters in any mode. With 
it you can produce some nice bold lettering, especially in modes 2 and 5 where the 
character width is greatest. The syntax is quite simple: 

PROCdouble ("HELLO" ,15, 10) 


will print the word 'HELLO' at (15,1Ø), in double-height, no matter which mode you 
are in! 


The routine works by first checking to see which mode is currently active by 
using OSBYTE 135 (as described in BEEBUG vol.1 no.8 p.41 - "What MODE?'). If the 
screen is found to be in Mode 7, the program branches to a different routine within 
the procedure and uses the "normal" method, with CHRS (141). If however the screen is 
in one of the other modés, then the OSWORD 1Ø call is used which returns the pattern 
of a character, and this pattern is then used to define two new characters, 
CHR$ (240) for the upper half and CHR$(241) for the lower half. This is then 
repeated for each of the characters in the string to be printed. 


The procedure itself is from lines 1000 on. The first part of the program is a 
demonstration which shows how the double-height characters look in the different 
modes. You will notice that in the Text Only modes (Modes 3 and 6) there is a black 
line separating the two halves of the double-height characters, due to the spacing 
between lines in these modes. To see this a little more clearly you could an the 
background colour in these modes by using: VDU 19,90,1,8,9,® 


-— m Ut ur tx Å rug Å ser 


waren 


Æ um Se - ee A Hn 


Lour L ee Heioht 


aa ME rn ch 2c EL mm NE MÅ op 
ae mes ee spd apse al 
10 REPEAT 
15 FOR M=Ø TO 7 


20 MODE M 

25 PROCdouble("Double-Height" ,Ø, 
19) 

30 PRINT TAB(Ø,13)"..And single" 
! "in mode "eM 
G$=GET$ 
NEXT M 
UNTIL FALSE 
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1120 VDU23,24Ø,D?1,D?1,D?2,D?2,D?3 


1000 DEF PROCdouble(AS,K,L) © ,D?3,D?4,D?4 

1010 LOCAL N 1130 VDU23,241 ,D?5,D?5,D?6 ,D?6 ,D?7 
1020 A%=135 | ,D?7,D?8,D?8 

1030 IF(USR(&FFF4)AND &FFØØØØ) DIV 1148 PRINT TAB(K+N,L) ; CHRS (240) ; 
&10000 = 7 THEN 1190 TAB (K+N, L+1) ;CHRS (241) 

1949 : | 1150 NEXT N 

1050 REM Modes 60-6 1160  ENDPROC 

1060 A=&A:X%=Ø:Y%=&A 1170 : 

1070  D-&A00 1180 REM Mode 7 

1080 FORN=| TO LEN(A$) 1198 PRINT TAB(K,L); 

1998 B$=MID$ (AS$,N, 1) 1200 FOR N=Ø TO 1 

1100  ?D-ASC(B$) 1218 PRINT TAB(K) ;CHRS(141) ;A$ 
1119 CALL (&FFF1) 1220 NEXT 


_ 1239 ENDPROC 


REEN TO CASSETTE (Vel no.6 OCT) | 

The simple screen to cassette routines published as above do not (and cannot 
easily) take account of so called "hardware scrolling" used by the Beeb. If you are 
using these routines, you either need to ensure that the screen has not been 
scrolled after it was last cleared, or to force it to do a so called ‘software 
scroll'. The latter is achieved by defining a text window equal to the full size of 
the screen (see BEEBUG vol.1 no.1Ø p.21). This must be accomplished after a mode 
change or a clear screen command (CLS). ; 


000020 00100 "00 "0 0 e «4 0 9 0 0 « 00000000 9 & € € 0 €. O € O 9, 0 € O € O 6 O DE DE DE DE DE E E E DE E DE DE DE DE "5 o o o a o a uno 
a atata a a a 9,9,9,9,9,9, 9, an en S e a a a "a a a e e a « OHO O^ e« O a 099 065«*09«*9000006099 


Can we please enforce a point, made in the first of the two articles on the 
'Compacter' utilities, that compacted programs can NOT be later edited using the 
COPY key. In the same way a listing of a compacted program cannot be typed in again 
directly. The reason, as stated, is because important spaces between keywords 
already stored as tokens are no longer present. 

We would also ask you NOT to send compacted programs to BEEBUG as part of an 
article; but rather the original sources. Once we list them in the magazine there 
may be some lines which look correct but will not run. 


- Some people have found an error in the program Beebmaze listed last month. The 
error occurs if the score ever falls below -99 and the length of the score (number 
of digits plus negative sign) is greater than 3. This causes the display to scroll 


statement at line 2188 to 10. [In our tests we never scored that low ! Ed]. 


Several readers have written in to us pointing out that if a graphics program 
redefines the graphics origin and does not reset it before the screen dump is used, 
only part of the picture is printed. The remedy is to execute VDU 29,0,0 before 


dumping. 


There was a typographical error in our 'more lives in Rocket Raid' hint in the 
March issue. The restart address is &117B, and not &1178 as stated. We apologise 


for this - we have now had an opportunity to test John Harris's hint, and it 
certainly works. | 
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PLEMENTING PSEUDO-O 


MAC 


S USING THE BBC ASSE 


by David C. Nichols 


with an assembler, although anybody 
who has used a 'real' assembler will 
have noticed that the assembler in 
the BBC Computer has no 
psuedo-operations (except OPT). 
Psuedo-operations are the name given 
to operations that are directed at 
the assembler not the machine. 


For example the OPT statement 
tells the ASSEMBLER what to do about 
errors and what listing is required, 
it generates no machine code. Common 
psuedo-operations found in assemblers 
might be:- 

BYTE - generate an 8 bit constant 

WORD - generate a 16 bit constant 

TEXT - generate a text string 

RESV — allocate space for a buffer 


The June issue of BEEBUG (vol.] 
no.3 p.20) explained a method of 
implementing some of these 
operations, and the October issue of 
Personal Computer World (p.186) 
showed another. Both these methods 
suffer from the disadvantage of 
having to leave the assembler, do 
some Basic and then return to the 
assembler (this requires that an OPT 
statement be repeated every time you 
re-enter the assembler). 


There isa third, and I think, 
much better method that does not 
require you to leave the assembler. 
The method exploits the fact that the 
operands for the assembler statements 
are Basic expressions. For example it 
is perfectly legal to write: 

LDA #SIN(RAD(45)) *1ØØ 
as an assembler statement, (even more 
amusing is LDA #GET). [Nice one - 
Ed] . 


This feature would not be very 
useful in itself except that BASIC 
expressions can contain calls to user 
defined functions, and that the 
operand to the OPT statement can also 
be an expression (yielding a value 
between 0 and 3). Consider the 
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following demonstration program:- 


DIM space 100 
FOR pass=Ø TO 3 STEP 3 
P$-space 
[ opt pass 
brk 
opt FNbyte (255) | 
opt FNtext("This is a string") 
opt FNbyte(Ø) | 
] 
NEXT pass 
CALL space 
END 
DEF FNtext (s$) 
SP%=s$ 
P%=P%+LEN (S$) 
=pass 
DEF FNbyte (b) 
?P%=b% 
P%3=P%+] 
=pass 


The program illustrates the 
exploitation of the features 
discussed (lines 60 to 6890). The 
function definitions in lines 130 to 
200 implement two common 
psuedo-operations in a manner very 
similiar to that shown in the June 
BEEBUG; the functions finish by 
returning a number in the range Ø to 
3 (pass) which is required for the 
OPT statement (redundantly, but this 
doesn't matter). 


The user functions invoked in this 
way can contain any legal Basic 
Statements, including more assembler 
Statements! This latter point allows 
us to write macros (a macro is a 
group of statements that can be 
"called" during the assembly process, 
this is quite different to a 
subroutine). The following program 
examplifies the implementation of a 
macro call: 


18 DIM space 106 | 
20 FOR pass- TO 3 STEP 3 | 
30 P%=space 
48 [ opt pass 
50. loop 
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6Ø opt FNmdex (3) UNTIL X%>=] AND X%<=127 

70 beq ok . CALL space 

80 bpl loop END 

100 brk | DEF FNtext(s$) 

110 opt FNbyte(255) SP%=s$ 

128 opt FNtext("Number not P%=P%+LEN (s$) 
divisible by 3") =pass 

130 opt FNbyte(Ø) DEF FNbyte (b£) 

14G.0k ?P$-b$ 

150 brk P%=P%+] 

160 opt FNbyte (ø) =pass 

178 opt FNtext ("Number DEF FNmdex (c£) 
divisible by 3") LOCAL i$ 

188 opt FNbyte (ø) FOR i$-1 TO c$ 

199] [opt pass 

2ØØ NEXT pass dex 

210 REPEAT ] 

220 INPUT''"Input a number NEXT 

between 1 and 127 " X% =pass . 


Notes: 


Lines 26Ø to 33Ø are the same as l. The MOS expects an error number 
lines 130-200 in the previous followed by a message terminated 
program. The function in lines 340 to by a zero after a BRK instruction. 
410 implements a macro that generates 2. The assembler treats upper and 
assembler statements that decrement lower case letters in the 
the X register by the number supplied instruction mnemonic as the same, 
in the parameter to the macro (c%). eg. LDA=lda=Lda etc. 

The program above, when run, also 

illustrates a "qirk" of the With the above ideas and a bit of 
assembler; the statement invoking the ingenuity it is possible to implement 
macro (line 60) is listed after the structured programming macros that 
statements it generates, this can be enable you to write in assembler high 
confusing but unavoidable. level language control constructs 


(e.g. IF —— THEN —— ELSE -— ). 


SCROLL COMMANDS 

Those of us who ‘come up from the gutter’ - that is, started computing on a ZX-8Ø 
or 81 - know how useful the ‘scroll’ statement can be, both for games and for 
serious applications. Fortunately, it is quite easy to implement this on the Beeb: 


A) SCROLL DOWN (all modes): VDU 39,11 

This will scroll the screen down one line, leaving the cursor at (0,0). VDU 30 is 
"cursor home’. VDU 11 is ‘cursor up" but, since the cursor is already at the top 
line, this will instead force the screen one line down. 


B) SCROLL UP (modes 3,6,7 - text modes): VDU 31,99,24,19 
This will scroll the screen up one line, leaving the cursor at (8,24). It works in a 
similar way to the above. 


C) SCROLL UP (modes 0,1,2,4,5 - graphics modes): VDU 31,Ø,31,1Ø 
Scrolls the screen one line up, leaving the cursor at (0,31). For more information 
about how these calls work, see User Guide pp.377-389. 


Thanks to Bjorn Grand for this hint, which came all the way from Denmark. 
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Tim Powys-Lybbe 


extremely useful and easy to use 
program for generating colour bar 
charts of any size or shape. If you 


ever require data represented in 
visual form, here is an excellent way 
to do it. 


The program Bar-Chart is intended 
primarily for generating screen 
displays, though with a suitable 


screen dump, these could be printed 
out or saved to tape or disc(see 
BEEBUG no 9 for suitable screen 
dumps). The program allows you to 
design a multicoloured bar chart 
through a series of simple commands, 
and 
the chart. 


The program is written in a fairly 
condensed manner, though with 
line-number-plus-SPACE separators 
between procedures for legibility. 
It takes up just under 4k of memory 
which gives you about 5k to add any 
extras you want. The program will 
fit onto a Micro with disc interface 
without any modification, though of 
course there is then only about 2k of 
free memory. 


For saving the display on to 
cassette or disc, or obtaining a 
printed copy, a procedure PROCScreen 
is called from line 44@ of PROC Exit. 
A description of this procedure is 
given at the end of this article 
under the sub-heading "Exit". 


Extensive use is made of the BBC's 
procedure and repeat-until 
facilities. An alphabetical directory 
of the procedures used is given to 
assist in following the program, not 
to mention any debugging, should you 
make transposition errors when typing 
the program in. 

INSTRUCTIONS FOR USE 
(PROC Limits) 
Check that the CAPS LOCK is on while 
making the Bar Chart and move the 
cursor with the cursor keys. 
Enter T at the top of the area you 
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choose , 


Sales per annum - £m 


These are the default Mode 1 


(32k) 


the bottom left or 
origin of the area and R at the right 
hand side of the area. The cursor 
keys normally move the cursor 8 
pixels at a time. This can be 
changed to single pixel movements by 
pressing the TAB key. Pressing it 
again returns to 8 pixel movements. 
The cursor keys can be held down 
together to give diagonal movements. 
There is no check to ensure that you 
put T above O and R to the right of 
0; if you do not then the program 
will give odd but predictable 
results. The chart can be any size, 
anywhere on the screen. The axes are 
drawn automatically after entry of T, 
O, R. 


Snacks Ltd Sales History 


= Biscuits 
68 m = Crisps 
= = Nuts 

58 
+8 7 
38 
2B 
123 

8 


Year 


2. DEFINE AND DRAW THE BARS, THEIR 
SHADINGS AND COLOURS 
(PROC BarPositions) 
This procedure asks a series of 
questions to which the answers are as 
follows: 
(a)"How many different bars?" This 
refers to the types of bars; a 
maximum of four types are allowed. 
For each of the four you can choose 
any one of four patterns and any one 
of three colours. 
(b) "What character for bar 1?" 
Enter either A, B, C or D to choose a 
predefined character used for bar 
shading. Characters B, C and D are 
patterned and can appear to give 
another colour in combination with 
the background colour. 
(c) "What colour for bar 1?" Enter 
1, 2 or 3 for red, yellow or white. 
colours 
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command; colours are 
permitted. 
(d) "Chars to be half/full width? 
(Ø/1)" Enter Ø for half width or 
bars 4 pixels wide and 1 for full 
width or bars 8 pixels wide. 
(e) "How many sets of these bars?" 
Enter any positive integer number. If 
the number is too large for all the 
sets of bars to fit on your chart 
area, you will be told so, and will 
have to start again with the number 
of bars. One purpose of the 'sets' 
facility is to permit charting 
different items on the same chart. 
For instance you may want to chart 
the sales of Model A, Model B, disc 
interface and Econet type BBC Micros 
over a Six month period. This would 
need four bar types and six sets of 
these bar types for the six months. 
This could be done in full width bars 
on a screen-wide chart but if the 
chart were over twelve months, half 
width bars would have to be used for 
the 48 bars to fit on the screen. 
See instruction 3 below for more 
details. 
(£f) "How many pixels between bars?" 
Enter any integer number in the range 
Ø to 99. This decides the gap to the 
left of each bar. 
(g) "How many pixels between sets?" 
Enter any integer number in the range 
Ø to 99. This decides the minimum 
gap to the right of each set of bars. 
The sets will in fact be spaced 
evenly on the X or horizontal axis so 
will usually be separated by more 
than this minimum gap. 
(h) "Maximum value of Y?" 
Maxima) Enter any number in the 
range 0.00001 to 100000. This number 
is then used to accurately scale the 
entries for the individual bars. 
(i) "Set no 1; Bar no 1. Bar value?" 
(PROC BarValues) Enter any number in 
the range from Ø up to the maximum 
value entered in the last item. The 
number can include decimals but 
cannot belonger than six figures 


flashing 


(PROC 


BEEBUG MAG Apr 


and can be changed using the VDU 9 


on 


il/May 1983 


35 


including the decimal point. 


The bars 
are then drawn to scale 
automatically. 

3. MAXIMUM NUMBERS OF BARS 
The maximum chart width is 382 


pixels. This permits the following 
maximum numbers of full and half 
width bars: 

| Full Half 
Zero pixel separation 37 75 
Single pixel separation 33 6Ø 


The number of bars is the product of 
the bar types and the sets of those 


types. 
4. TEXT MODE (PROC Text) 


At this stage you can write any 
character in upper or lower case 
anywhere on the screen; this includes 
the defined characters with the 
colours that you chose for the bars, 
which are written with the fl up to 
f4 keys, depending on your number of 
bars. The cursor can be moved with 
the cursor and TAB keys as above 
(instruction 1). At the end of a line 
the cursor will automatically go to 
the next line down, separated by four 
pixels, as in the Micro's Mode 3. 
Auto-repeat works normally, as do the 
RETURN and DELETE keys, though the 
latter additionally deletes the 
current character. 


5. EXIT 
Once text has been entered, the exit 
procedure is called. Although no 


prompt or echo of input is given (so 
you 


as not to affect the display), 
can type any of the following: 


a) 'E' - exit 
b) 'P' - supply printer copy 
C) 'D' - save a copy | 


on disc 


„Bes 

This bar chart has: 

i bar type only 

Half width bars 

59 sets of this one bar 

1 pixel gap between bars 
i bet 


t 


refs 
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The program listing currently ae 


Supports the 'E' and 'D' options. If 
you want a 'P'rinter option then all 
you need do is add on a suitable 
Screen dump routine for your 
particular printer. BEEBUG vol. ] 
no. 9 contains suitable machine code 
screen dump routines for both the 
Epson and Seikosha printers. The copy 
sent to disc under the 'D' option 
will be given the name 'SCREEN' and 
the screen display can therefore be 
re-loaded with MODE1:*LOAD "SCREEN" 
at any desired time. 

The same name is always used in the 
saving of the screen contents and 
therefore it is important on disc 
based systems to rename this file, or 
change the name in the program 
listing, if a second screen is to be 
saved on the same disc. 


Note: The program Bar-Chart is a much 
reduced version of a single routine 
from an elaborate screen processor 
package which will be available 
through BEEBUGSOFT in the near 
future. The package allows diagrams 
of all kinds, including bar charts, 
pie charts and graphs, as well as 
cursor-drawn figures to be placed on 
the screen, and subsequently saved to 
printer, cassette or disc. Please do 
NOT write for further details, these 
will appear in the magazine as soon 
as they are available. 


DOO 
C) 
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148 
159 


REM Bar Chart in Colour 


REM Copyright T F Powys-Lybbe 1983 


ONERRORGOTO! 39 
MODE] 
PROCInitialise 
PROCBarChart 
PROCText 
PROCExit 
VDU4 3 * FX4 

END 


16@ DEF PROCInitialise :DIMA$ (3,1) :DIMB (3, 


1) :XLO$-36: YLO%=64 : XHI%=1 248 : YHI$-1 020 sMOVED 
s 36: DRAW] 289 , 36 sM=1 :GCOL@, 3: COLOUR3 : PROCHome 
:CS=8:J=Ø:*FX4,1 


178 E$="Ø123456789" :FS=ES+" ," :AS=F$:C$=F$: 


VDU23,255,255,255,255,255,255,255,255,255,23 
»,254,90,65,34,290,8,29,34,65,23,224,255,255,25 
5,255,255,255,255,255:*KEY0| ! |A 


18Ø VDU23,225,255,0,255,0,255,0,255,0,23,2 


26,178,85,170,85,170,85,170,85,23,227,170,17 
9,170,1790,170,179,1 
11:1B 

190 *KEY2|!|C 
200 *KEY3|!|D 
218 *KEY4|l!|E 
228 ENDPROC 


230 
ES 


2 : *KEY 
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o p 
VDU255 ELSE MOVEX-16,Y+16:VDU254 

250 MOVEX,Y:IFM-] M=Ø ELSE M=] 

260 GCOLØ, 3: ENDPROC 

270 

280 DEF PROCInkeyCursor :REPEAT:K$-INKEY (Ø) 
sJ=3J+1: IFJ>4Ø J=Ø:PROCCursor 

299 IFNOT(K$--1) IFM=Ø PROCCursor 

300 IFK%>135ANDK%<149 PROCCursorKeys 

310 IFK$-9 ANDCS-] CS=8 ELSEIFK$-9 CS=] 

320 UNTILNOT (K$--]):ENDPROC 

3360 


348 DEF PROCYesNo:A$z"YN"s:PROCInput(],POS, . 


VPOS) : ENDPROC 
350 
360 DEF PROCCursorKeys :REPEAT: IFINKEY (-26) 
IF NOT (X<=XLO%+(CS—1) *4) X=X-4*CS | 

370 IFINKEY(-122) IF NOT(X>=XHI%-CS*4) X=X 
+4*CS 

389 IFINKEY(-42) IF NOT (Y<=YLO%+4*CS) Y=Y- 
4*CS 

390 IFINKEY(-58) IF NOT (Y>=YHI$—4* (CS-])) 
Y=Y+4*CS 

400 MOVEX, Y:K%=INKEY (Ø) : UNTILK%<136 OR K%> 
139: ENDPROC 

410 

420 DEF PROCDelete :MOVEX, Y:GCOLØ, Ø:VDU255: 
ene ; 

Ü 

440 DEF PROCEx it :MOVEØ, 36: PLOT7, 1280, 36:PR 
OCCommand ("") : PROCScreen:VDU6, 12,16,20,26: 
*FX12 

450 *FX15 

460 ENDPROC 

470 

480 DEF PROCMessage : VDU4, 28,0, 31 , 39,31, 12: 
ENDPROC 

498 

500 DEF PROCEndMessage : VDU26 , 5:MOVEX, Y: END 
PROC 

510 

>28 DEF PROCInput (length,X, Y) : LOCALF$:F3=Ø 
:C5="" sREPEAT: BS=GETS : IFINSTR(A$,B$)>Q C$=LE 
FTS (C$+B$, length) :F$-1 : PRINTTAB (X, Y) C$; 

530 IFB$=CHRS (127) AND length»] C$=LEFTS(C 
$,LEN(C$)-1) : PRINTTAB(X, Y) C$; " "2 : VDU31 , X+LE 
N(CS) „X 

540 UNTILF%=]AND (BS=CHR$ (1 3) ORlength=]) :C 
=VAL (C$) : ENDPROC 

55Ø 

56Ø DEF PROCCommand (A$) : PROCMessage : PRINT 
AS ; : PROCEndMessage : ENDPROC 

570 

580 DEF PROCAxes : FORI-0TO2: X-A$ (I,0) :Y-AS( 
I,1) : PROCDelete : NEXT :MOVEXor igin, Ymax : DRAWXo 
Eon og ee aaa Yo rig ns ENDEROC 

Ü 

620 DEF PROCHome:X-XLO$:Y-YHI$:MOVEX,Y:END 
PROC 

618 


620 DEF PROCBarChart:PROCLimits:PROCAxes:P 


ROCBar Posi tions : PROCMax ima : PROCBar Values: END 


630 
640 DEF PROCBar Positions:PROCMessage : REPEA 
TCLS: PRINT" How many different bars? ";:A$=E$ 
: PROC Input (2, POS, Ø) :BarNo$-C:IFBarNo$-0 ORBa 
rNo$»4 VDU7: 
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650 FORI=] TOBarNo$% :REPEAT:CLS:A$="ABCD" : PR 
INT"What character for bar ";I;" ";:PROCInpu 
t(1,PO0S,Ø) :B% (I-1,9)=159+ASC (C$) : PRINT" ";CH 
RS (BL (I-1,Ø));" OK? Y/N ";:PROCYesNo:UNTILCS 
=A"y0 

660 REPEAT:CLS:AS="123" : PRINT"What colour 
for bar ";I;" ";:PROCInput (1,POS,2) :B% (I-1,1 
) =C:COLOURB$ (I-1,1) : PRINT" ":CHR$(B%(I-1,Ø)) 
;" OK? Y/N ";:COLOUR3: PROCYesNo : UNTILCS="Y" ; 
NEXT 

67Ø CLS:PRINT"Chars to be half/full width? 

(0/1) "::A$="Ø1":PROCInput (1, POS, Ø) swidth=C 
s REPEAT:CLS: PRINT" How many sets of these bar 
S? ";:AS-ES:PROCInput (2, POS ,Ø) : Sets%=C:UNTIL 
Sets%>Ø 

680 D$="How many pixels between ":A$=E$:CL 
S: PRINTD$+"bars? ";:PROCInput (2, POS,Ø) :Bgap% 
=VAL (C$) *4:CLS: PRINTDS+"sets? ";:PROCInput (2 
„POS, Ø) : Sgap&=VAL (C$) *4 

690 A%=(Xmax-Xorigin-4)/(BarNo%*((Width+1) 
*16+Bgap%) +Sgap%) : IFSets$>A% CLS:PRINT"Hit S 
PACE. Bad sets/bars. Max sets=":A%; :VDU7 : REP 
EATUNTILGET=32: UNTILFALSE 

700 CLS:PRINT;Sets$;" sets of ";BarNo$;" b 
ars. OK? Y/N "::PROCYesNo: UNTILCS="Y" : ENDPRO 
C 

710 

720 DEF PROCBarValues:REPEAT:FORI=1TO Sets 
%:FORJ=]TO BarNo%: PROCMessage : REPEAT :CLS: PRI 
NT"Set no ";I;"; Bar no ";J;", Bar value? "; 
:AS-F$:PROCInput (6, POS,Ø) sA=C: IFA<Ø ORA»MaxY 
VDU7 : UNTILFALSE ELSEPROCEndMessage : UNTILTRU 


^g 


730 RatioY- (Ymax-Yorigin) /MaxY:X=Xorigin+( 
Xmax-Xorigin) /Sets%* (I-1)+(J-1) *16* (Width+1) 
+J*Bgap%+4 : FORK=32T032+A*RatioY STEP32:Y-Yor 
igin+K:MOVEX, Y:GCOLØ,B% (J-1,1) : PRINTCHRS (B$ ( 
J-1,0)) zGCOLØ, 3: : IFWidth=Ø X=X+16:PROCDelete 
sX=X-16 

74Ø NEXT:Y=Yorigin+A*RatioY+32:PROCDelete: 
NEXT : NEXT : ENDPROC 

75Ø | 

760 DEF PROCLimits:FORI%=ØTO03:B%(I%,Ø)=Ø:N 
EXT :GD=1 : REPEAT: PROCCommand ("Bar Chart: Ente 
r T, O, R in CAPS") : PROCInkeyCursor :A$=CHR$ ( 
K%) : IFAS="0" XoriginzX:YoriginzY:B$(0,0)-21:V 

770 IFAS="R" Xmax=X:B%(1,Ø)=1:VDUK%:A% (1,9 
)=X:A%(1,1)=Y 

780 IFAS="T" Ymax=Y:B%(2,Ø)=1:VDUK%:A% (2,0 
)=X:A% (2,1) «Y 

798 Az1:FORIS-0TO2:IFBS$(I$,0)20:A-0 

800 NEXT: IFA=@ UNTILFALSE 

810 UNTILA=| :GD=Ø: ENDPROC 

820 

830 DEF PROCMaxima:CLS:AS=F$: PRINT" Maximum 

value of Y? ";:PROCInput (6, POS,Ø) :MaxY=C: EN 
DPROC 

840 

859 DEF PROCText:XLO$z0 : XHI%=1 280 : PROCHome 
s PROCCommand ("Enter Text: fØ key will exit") 
: REPEAT: PROC InkeyCursor : IFK%>31 ANDK$«127 PR 
OCLetter 

860 IFK$-127 PROCScrub 

870 IFK%=13 ANDY>YLO%+49 Y=Y-40:X=XL0% 

880 IFK%>129 ANDK$«134 PROCBars 

890 MOVEX, Y: UNTILK%=1 29: ENDPROC 

900 


Volume-2 Issue-l 


38 


910 DEF PROCLetter :PRINTCHRS (K%) ;:IFX<XHIS 1908 AS=GETS 


-32 X=X+32 ELSEIFY>YLOS+4Ø Y=Y-4Ø:X=XLO% 1Ø1Ø IFAS-"P" PROCDump: ENDPROC 
92Ø ENDPROC .1020 IFAS="D" GOTO1Ø4Ø 
93Ø 1Ø3Ø ENDPROC 
949 DEF PROCSCrub:PROCDelete:IFX>=XL0%+32 1049 *OPT1,Ø 
X=X-32 ELSEIFY<=YHIS-4Ø Y=Y+4Ø:X=XHI%-32 1058 *SAVE "SCREEN" 3ØØØ+4FØØ 
95Ø PROCDelete : ENDPROC 1Ø6Ø *OPT1,2 
96Ø 1978 ENDPROC 
978 DEFPROCBars:GCOLØ, B% (K%-13Ø,1) :K3=B% ( 1080 
K$-139,0) : PROCLetter : GCOLZ , 3: ENDPROC 1896 DEF PROCDump 
988 1199 REM <<Your printer dump routine goes 
998 DEF PROCScreen here>> 
2000 ENDPROC 


Ux the start ‘of each 
Soh he K 


er o 
nn 20 *KEY2 LIST 1999, 1999 


ILLEGAL PRINT TAB USE 


M.A. Ridyard would like to point out (Special note for all the commercial 
programmers) that with the new operating system, the PRINT TAB statement does not 
operate after VDU 5 code has been implemented (as it did on OS 0.1). This is 
mentioned in the new User Guide. With 0S 1.2 (I am one of the lucky ones) a number 
of games are no longer usable (this is the unlucky bit) and machine code programs 
are difficult or impossible to modify. 
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INVASION (16%) 
by Alan Webster 


i na a na a a A 


This is an invader type game for one player in which the object is to destroy 
all of the descending aliens (isn't it always?). The game starts with one alien 
attempting to 'land' on the surface of the planet. If this is killed then you move 
onto the next sheet with two aliens. This goes on until you have beaten off the 
sheet with six of the creatures, whereupon the game restarts with just one alien but 
becomes faster...and faster...and faster...! 

You have three lives to play with and you lose one every time an alien lands. 
After losing all of your lives your score is displayed and the highest score is 
shown. 

You control the cross on the screen, and have to move this directly on top of 
the alien and then fire. 


The following keys are used within the me: lieti Ie Uo o n og 


Z Left : Up 
X Right / Down 
Space Bar to Fire —( 44 


18 MODES 

20 EKS=Ø:FR%=Ø 

30 VDU19,1,11,0,0,0 
48 PROCchr 

58 HI%=9:DIM Z(5,2) 
60 SC%=Ø:LV%=3:R%=1Ø 
78 FORTW$-0 TO 5 

80 SOUND1,-1Ø,235,1 
90 OTS-TWS 
100 B%=25 

118 GF$-0 

120 PX=9:PY=1Ø:CLS 
130 PROCscene 


148 I%=] 
159 PROCstars(1ØØ) EEE EEE 
160 PROCrndm 430 VDU23,224,24,24,36,231,231,36,24,24 
179 IFI$-lIS-2ELSEI$-] 440 VDU23,225,102,153,60,90,126,60,66,129 
180 PROCalmove 450 VDU23,226,129,9Ø,6Ø,9Ø,126,6Ø,66, 36 
190 SOUNDØ,-(RND(5)+1Ø) ,7,1 460 ENDPROC 
200 IFLV%<1 PROCendgame :GOTO60 470 DEFPROCrndm v 
219 FORLP%=|TOR%+ (R&ANDFR£-4) 480 FORAS-QTOTW$:Z(A$,0)-RND(18):2(A$,1)- " - 
220 PROCplmove Ø:Z(A$,2)=1| : NEXT ly 
23Ø COLOUR2 490 ENDPROC bs 
240 PRINTTAB (2,31) ;SC%;TAB(17,31) ;LV%; 508 DEFPROCplmove 
250 COLOUR3 518 OX=PX: OY=PY 
268 PROCfire siet 520 IFINKEY-98ANDPX>1GF%=GF%-1 
270 NEXTLP$ 530 IFINKEY-67ANDPX«18GF$-GF$-] 
289 IFEK%=TW3+] EK$-0:NEXTTIWS 540 IF ABS(GF%)=2 PX=PX+SGN (GF%) :GF%=2 
290 IF TW$-6 R%=R%-1:GOT07Ø ELSE17@ 550 IFINKEY-195ANDPY<27PY=PY+] 
300 END 560 IFINKEY-73ANDPY>ØPY=PY-] 
319 DEFPROCscene 570 PRINTTAB(OX,OY);" ":COLOUR3:PRINTTAB( 
320 VDU23;11,0;0;0;0 PX, PY) CHR$224 
338 VDU23,255,255,255,255,255,255,255,255 588 ENDPROC 

2295 598 DEFPROCalmove 
349 FORA$-]TO18:PRINTTAB (A%, 30) ; CHR$255:N 600 FORAS=ØTOTW% 

EXT 618 IFZ(A$,2)-0 GOTO 7900 
350 VDU23,254,8,8,28,28,62,62,127,127 620 PRINTTAB(Z(A$,0) ,Z(A$,1)) SPC 
360 PRINTTAB(9,29) ;CHRS254 630 Z(A$,1)=Z(A%,1)+1:Z(A%,Ø) 2Z (A8, 0) -- (RN 
370 ENDPROC D(3)-2) 
380 DEFPROCstars(A%) 640 G3=Z(A%,Ø) 
398 FORA1%=1|TOA%:GCOLØ, RND (3) 65Ø IFG&«1Z(A$,9)-1 
498 PLOT69,RND(128Ø)-1, RND(9ØØ) +123 660 IFG3>18Z(A%,Ø)=18 


VET 67Ø IFZ(A$,1)-29 AND G$-30RC$- u 
420 DEFPROCchr A8,0)-Z( (A%,1)=29 G$-30RG$-9O0RG$-16 Z( , 
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680 COLOUR]: PRINTTAB (Z (A%, Ø) ,Z(A%,1)) CHRS 810 ENDPROC Š 
(224+1%) . 820 DEFPROCfire d 
699 IFZ(A$,1)-29 Z(A%,2)=Ø:LV%=LV%-1 : EK%= 830 FR$-0 
EK%+1 : FORSD$=1TO2: SOUND] , 715,5, 4: SOUND1,-15 849 IFINKEY-99ANDBS>ØFR%=6Ø8 sitet 
s |s 4: NEXT 850 IFFR%=Ø ENDPROC nt Pa m non 
700 NEXT 860 FX=64*PX+32:FY=1924- (32*PY)-16 
710 ENDPROC 870 FR13=96 
720 DEFPROCendgame 880 MOVEFR$,FR1$:DRAWEX,FYs:GCOL, 
739 FORAS=1TO7ØØØ:NEXT 899 FORY%=ØTOTW%: IFPX=Z (Y%, Ø) ANDPY=Z (Y%, 1 
740 CLS ) ANDZ (Y$,2)<>Ø Z(Y%,2)=Ø:SC%=SC%+11-R%: EKS= 
750 PRINTTAB (3,15) ; "YOUR SCORE:";SC$ EK%+1 : SOUND ,-15,1ØØ, I : SOUND] ,-1 4, 2, 1: SOUND 
760 IFSC$»HISHI$-SC$ 1,-15,200,1 ELSE SOUNDI ,-1Ø,235,1 
770 PRINTTAB(3,17);"HI SCORE :":HI$ 9ØØ NEXT 


780 *FX15,Ø apes N 919 E unm ee 
790 COLOUR3:EK$-0 4, 4 4. MÀ 999 B=B3-]: PRINTTAB (9, 31) ;B$; CHRS32; 
800 S-GET ku A M i 930 ENDPROC 


USER GUIDE ERRORS 


The new User Guide has relatively few errors - to Acorn's credit. In BEEBUG vol.] 
no.5 p.4 and no.7 p.22 we published a number which have been brought to our notice. 
Here are two or three more which have been recently discovered. We are grateful to 
Richard Florance, Andrew Smith and M. Elliott for pointing them out. 


1) On page 452 of the User Guide, it states that when using OSFIND to open a file, 
the channel number is returned in the Y register. It is not, it is returned in the 
Accumulator (on version OS 0.1 anyway). 


2) On page 179 the Basic line 19120 of the Moon-Lander program should read: 
: 190120 MOVE X%,Y% 
The User Guide has the X and the % sign around the wrong way. 


3) There is a lack of information in the User Guide on the OSBYTE call with A-&8]1 
(read key within time limit). Although the guide states (page 430) that the call 
can also be used to determine whether a particular key is being pressed - ie. like a 
negative INKEY - simply setting the Y register to the required negative number does 
not seem to work. However if both the X and Y registers are set to the negative 
number before the call is made, then on return they will both contain &FF if the key 
was pressed, or 00 if it was not. 


Acorn are about to revise the User Guide, and they have asked us if we would put 
out an appeal for notification of errors. If you have discovered errors in the User 
Guide which have not yet been published, or if you have important suggestions to 
make regarding the Guide, would you jot them down and send them to the following 
address: USER GUIDE ERRORS, BEEBUG, PO BOX 50, ST.ALBANS. Please do not include 
other material, since all mail will be passed directly to Acorn. 


Peter Mabey suggests that readers should be reminded that when writing an error 
trap routine the first statement in the routine should turn off error trapping, or 
else any mistake therein will cause it to loop back to the beginning, so that the 
only way out would be to BREAK. i.e.: | 
1Ø ON ERROR. GOTO 9999 9999 ON ERROR OFF 
e (main program) å (error routine) 
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WORDWISE AND FUNCTION KEYS 


After using Wordwise and then returning to BASIC you may have noticed that the 
function keys cannot be programmed and any previous definitions are lost, the keys 
returning ASCII values from 160 onwards. Richard Bean informs us that the keys may 
be returned to their normal state, (with any previously entered definitions intact) 
by typing: *FX 225,1 


ven vr ere ee ev 


EDITING BASIC PROGRAMS USING WORDWISE 
George H. Foot has written in with a useful tip on editing a 'corrupted' Basic 
program using Wordwise. The principles could also be applied to general editing of a 


"good" program using Wordwise, eg. using the 'Search and Replace' facility to change 
variable names etc. 


Some unexplained corruption of data resulted in two lines 3Ø in one of my 
programs - one line 3Ø in the correct place, the other in the middle of the program. 
No action (even deleting that section of program) would remove the offending line 
3Ø. The solution was to transfer the program to WORDWISE and to use the word 
processing facilities to remove the unwanted line. It is a feature of WORDWISE that 
it can be used to edit BASIC programs and this can be very valuable. 


The steps of the method are:- 
Working in Basic, load the program. 

*SPOOL "filename" 

LIST "filename" 

*SPOOL 

Type *W. to transfer to WORDWISE 

Load the SPOOLed file using Option 2 of Wordwise 

Edit the program as required using the Wordwise editing facilities 

Save the edited program using Option 1 of Wordwise (do not use option 8) 

Return to Basic by typing *B. 

EXEC "filename", 


If your program has an array that stores 'byte-size' integers, ie. with a maximum 
value of 255, you can save memory by using the DIM A 108 technique. This allows you 
to write to the array (in this case called A and 191 bytes long) with A?x-...; where 
x is the array index, and to read it with Y-A?x...(Note, this is TUBE compatible). 
A further advantage of this method is that you can *SAVE/LOAD the result as follows: 


180 DIM A 100 180 DIM C 30 

20  AS-STRS A:B$=STR$ (A+1ØØ) :REM This 118 INPUT"File name "N$: IFNS="" 
puts the address of A in Hex into OR LENNS)7 THEN VDU7:GOTO11Ø 
A$, and the address of the finish 120 SC-"SAVE"ACHRS344NS4CHRS$344AS4CHRS 
of the array into BS 32(acts as separator)B$ 

36 REM ... rest of program 130 X$-C MOD256:Y$-C DIV256:CALL&FFF7 


This ARE allows you to SAVE & LOAD data at the same speed as normal 
SAVE/LOAD operations rather than the Slower OPENOUT method Richard 
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ACORN PRESS RELEASE TO BEEBUG MEMBERS 
A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5.85 including VAT and post and packing. 
The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. 
If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 
Charge of £6.00 plus VAT. This charge will be waived if the ROM 
been defective. 


is found to have 
If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


1. To get a new ROM, 


BEEBUG members should send a cheque for £5.85 to 
ROM Offer, 


BEEBUG, PO Box 1809, High Wycombe, Bucks, HP11 2TD. It is ESSENTIAL 
to include a cheque with order, and to give your membership number. 
25 


ROM orders must not be combined with any other order - eg for 


Software etc; 
and because of constraints on supply, multiple orders cannot be accepted until 
further notice. 

Je 


Because of uncertainties in supply, please allow 4-6 weeks for delivery. We 
undertake not to cash cheques until the week prior to despatch; 


and we will 
provide a monthly account of the supply situation in BEEBUG. Please keep a 


note of the date on which you posted your order so that you can relate this to 
future announcements. 
4. 


Please note that we cannot accept EPROM-based Ø.] 


operating systems 
in lieu of payment. The exchange of EPROMS for the new operating system can 
only be performed by Acorn dealers or by Acorn's service centre at Feltham. 


ADDRESS: ROM Offer, BEEBUG, PO Box 109, High Wycombe, Bucks, HP11 2TD. 


BEEBUG Discount 13% SAVE £5 
This is a highly sophisticated word processing package for the BBC Micro, and 
compares very favourably with those currently available on other microcomputers. It 
makes full use of the BBC micro's advanced facilities, and text is typed and edited 
in the 40 column Teletext mode, saving memory, thus allowing it to be used with more 
or less any TV. See the software review in this issue for further details. 
Wordwise is supplied in EPROM with simple fitting instructions, 
and a sample data 


| a full manual, 
cassette. Wordwise must be used in conjunction with a 
operating system. 
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IF YOU WRITE TO US 
AC Members onl 


Subscriptions Address 
BEEBUG 

Dept ] 

374 Wandsworth Rd 
London 

SW8 4TE 


|All back issues are kept in print (from April 1982). 
|Send 9p per issue PLUS an A5 SAE to the 
| |subscriptions address. This offer is for members 
| only, so it is ESSENTIAL to quote your membership 
|number with your order. Please note that  BEEBUG 
|supplements are not supplied with back issues. 


| SUBSCRIPTIONS 


Send all applications for membership, subscription renewals, and 
subscription queries to the subscriptions address. 
Membership costs: £5.40 for 6 months (5 issues) 
: £9.90 for ] year (10 issues) 
European Membership £16 for ] year. 
Elsewhere - Postal Zone A £19, Zone B £21, Zone C £23 


SOFTWARE AND ROM OFFER (Members only) 


These are available from the address opposite, which 
is our NEW software address. (Note that this does 


Software Address 
BEEBUG 

PO BOX 109 

Baker Street 


not apply to Wordwise - in this instance please see High Wycombe 
magazine for details). Bucks 


HP1] 2TD 


IDEAS, HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Editorial Address 
BEEBUG 


Substantial articles are particularly welcome and we 
will pay around £25 per page for these, but in this 
case please give us warning of anything that you PO Box 50 
intend to write. In the case of material longer St Albans 
than a page, we would prefer this to be submitted on Herts 
cassette or disc in machine readable form using AL] 2AR 
"Wordwise", "Minitext Editor" or other means. If you 

use cassette, please include a backup copy at 300 


We will also pay £198 for the best Hint or Tip that we publish, and £5 to the next 
best. Please send all editorial material to the editorial address opposite. If you 
require a reply it is essential to quote your membership number and enclose an SAE. 


u 


BEEBUG NEWSLETTER is edited and produced by Dr David Graham and Sheridan Williams. 


Technical Editor: Colin Opie. Production Editor: Phyllida Vanstone. 
Technical Assistant: Alan Webster. 


Thanks are due to dJohn Yale, Adrian Calcraft, Tim Powys-Lybbe, and David Tall for 
assistance with this issue. 


All reasonable precautions are taken by BEEBUG to ensure that the advice and data 
given to readers are reliable. We cannot, however, guarantee it, and we cannot 
accept legal responsibility for it, neither can we guarantee the products reviewed 
or advertised. BEEBUG (c) April 1983. 
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To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the tape's 
contents, and allowing the selection 
of. individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


Vol ] no 19 Vol 2 no ] 
16 Programs including the following: 13 Programs including: 


3D Rotation Four in a Row 
Life Invasion 
. Artillery Duel | Music Composer 
Square Dance Bar Chart Generator 
Disc Formatter Basic Utility Editor 
File Handler Double Height Routine 
 Micro-Sketch Disc Menu Program 
Date validation Routine PLUS FULL LISTING OF MINI TEXT ED 
l VERSION 3, AND A PROGRAM TO PLAY 
BEETHOVEN'S BAGATELLE IN b FLAT 
(3 VOICES) 


PRICE:Members UK Only £3.50 inc p&p and VAT 
Europe £4.58 inc p&p (VAT not charged) 
Elsewhere £5.00 inc p&p (VAT not charged) 
Please give membership number. Non-Members add 50p per cassette. 
If ordering more than one tape, deduct 2øp from the price of each. 
Make cheques payable to BEEBUG, and post to BEEBUG, PO Box 199, High Wycombe, 
Bucks, HPl1 2TD. | 


thd | | 
A hard-backed binder for BEEBUG magazine is now available. These binders are 
dark blue in colour with 'BEEBUG' in gold lettering on the spine. They allow 


you to use the whole of the first volume of the magazine as a single reference 
book. Individual issues may be easily added or removed. 


Binder price U.K. . £3.90 inc p & p, and VAT. 
Europe £4.90 inc p & p (VAT not charged) 
Elsewhere £5.90 inc p & p (VAT not charged) 


Make cheques payable to BEEBUG. 
Send to Binder Offer, BEEBUG, PO Box 199, Baker Street, High Wycombe, Bucks, 
.HPI] 2TD. Please allow 28 days for delivery on U.K. orders. 


